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A 6801 A 
NAME A Rev 16 GRW A 



* Missing page 1 reconstructed by Richard F. Drushel 2010.05.12 

* using link map and xref listing, as well as comparison 

* with other 6801 app title pages. 

* Actual comments were probably longer, but like the dates and 

* programmer initials, cannot be recovered. 



SHANNON EQU 



000H 



DEBUG FLAG 



De_DAISY4 MACRO 



.GOTO Ede_DAISY4 



,- Header Rev. 4 



Project; NET, 83-101 



][][][][] C3 [][] n i] [i [][] n Ei n [][] [j c] ij [][][][] n (] [ 
] r 

]DAISY4 ??? [ 

1 [ 

] [j [in n ei nn n u n [j nn n nn n [nnnnnn] n n t 



Rev 

Rev. 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 



Ede_DAISY4 



History 
Date 

83/nn/nn 
83/nn/nn 
83/nn/nn 
83/nn/nn 
83/nn/nn 
83/nn/nn 
83/nn/nn 
83/nn/nn 
83/nn/nn 
83/nn/nn 
83/nn/nn 
83/nn/nn 
83/nn/nn 
xxjulxxxx 
xxjulxxxx 
xxjulxxxx 
xxjulxxxx 

MEND 



Name 
GRW 

??? 
??? 

??? 
??? 
??? 
??? 
??? 
??? 
??? 
??? 
??? 
??? 
??? 
??? 
??? 



Change 



converted pseudo code to 6801 code 
Initial Pseudo Code 



* 6801 EQUATES. 

DDR1 EQU 00 OH 
DDR2 EQU 001H 
PORT1 EQU 002H 



DATA DIRECTION REGISTER FOR PORT 1 

n II II n n n 



FILE: DAlSY4;pADAMP HEWLETT-PACKARD: DAISY WHEEL PRINTER" (c) Coleco 1983 Confidential 
LOCATION OBJECT CODE; LINE SOURCE LINE. ' .'" - 



Hon, 7 Nov 1983, lb: 4? 



'AGE 



^ 



• 




03B 



<0003> 
(.00 04) 
<0005> 
<0006> 
<0007> 
<0 008> 
<0080> 
<0040> 
<0 020> 

<ooig> 

<0008> 
<0004> 
<0002> 

<oooi>* 

<0009> 
<OO0B> 
<000D> 
<000F> 

< 1 ■ > 
<0008> 
<OO04> 
<00 02> 

<oooi >■■ 
<oon > 

<1)080> 
<0040> 
<0 020> 
<0010> 
<0008> 
<0004> 
<0002> 

< 1 > 

< 1 2 > 
<0013> 
<0014> 

<0002> 

(0006) 

<0007> 

<0 080> 
<0040> 
<0020> 

< 1 > 
<0 0F7> 
<00FB> 
<0OFD> 

■<00FE> 



:t)03A> 



59 

60 
61 , 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

I 1 
111 
112 

I I 3 
114 
115 



' EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



P0RT2" 

D0R3 

DDR4 

P0RT3 

P JRT4 

TCSR 

TCSR„ICF 

tcsrIocf 

TCSR- TUF 

tcsrIeici 

tcsr eoci 
tcsr~etqi 
rcsR I LOG 
tcsr'olvl 
timer equ 



EQU 
EQU 
EQU 
EQU 



OCR 
ICR 
P3CSR 
RHCR 
RMCR CC1 
RMCR_CC0 
RMCR__SS1 
RMCRJ3S0 
TRCSR EQU 
TRCSR„RDRF 
TRCSR ORFE 
TRCSR TORE 
TRCSR RXE 
TRCSR _RE 
TRCSR TIE 
TRCSR __T£ 
T'RCSR.WU 
RDATA EQU 
TD.ATA EQU 
RAMCR EQU 

MOTORS EQU 

FUDGE EQU 



BITS 
BITS 
BITS. 
BITS. 

BITS 
BITS. 

BITS 
BITS 
BITS 



EQU 
TEST 

SPOKES 
DETENT 

LEFT 
BRAKE 
LP 

RIBBON l 
HAMMER 

DATA 



STACKSi J ACE 

STACK 

BUFFER J : 'OINTER 

BUFFER COUNT 



Q03H 
■ 04H 
05H .. 
06H 
07H 
OH 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
009H 
0BH 

OH. 
00FH 

01 OH 
EQU ; 
EQU' 
EQU '. 
EQU 
011H 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
012H 
1 3H 
014H 

PORT 1 

PORT 3 

PORT 4 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



RMB 
EQU 
RHB 
1 1 ■ 
RMJB 



11 II 

tl tl 


3 
4 


CONTROL AND STATUS 


REGISTER 



10 
010 
00100 
00010 
00001 


ooooo 





00001 

ooooo 
ooooo 

ooooo 

100 
010 
00100 
00010 
00001 

ooooo 
ooooo 
ooooo 



TIMER 
000B 
000B 

OB 
000B 
OOOB 
100B 
010B 
001B 

TIMER REGISTER (16 BITS) 
OUTPUT COMPARE REGISTER (16 BITS) 
INPUT CAPTURE REGISTER (16 BITS) 
PORT 3 CONTROL AND STATUS REGISTER 
RATE AND MODE CONTROL REGISTER FOR SCI 

OOOB 

100B 

010B 

O01B 

TRANSMIT/RECEIVE CONTROL AND STATUS REGISTER 

OOOB 

OOOB *- -■ . 

OOOB 

OOOB . 

OOOB 

10 OB 

01 OB -, , . 
1 B 

RECEIVE DATA REGISTER 
TRANSMIT DATA REGISTER 
RAM CONTROL REGISTER 

PORT 1 IS USED FOR STEPPING MOTORS 

PORT USED TO FUDGE DESIGN SPEEDS 



PORT 4. IS USED FOR VARIOUS THINGS 



10000 OB 
0100000GB 
001 00 OB 

0010000B 
1 1 1 1 1 1 1 B 

1 1 111011 B 
11 1 111 01 B 
11 11 111 OB 



59 
*-l 



SHANNON 



SELF-TEST INPUT BIT (0 « SELF-TEST) 
WHEEL HOME INPUT BIT <1 * HOME) 
PLATEN DETENT INPUT BIT 

LEFT MARGIN INPUT BIT (1 - LEFT MARGIN) 
PLATEN MOTOR BRAKE OUTPUT (0 « BRAKE ON) 
PLATEN MOTOR ADVANCE OUTPUT <0 - MOTOR ON) 
RIBBON ADVANCE SOLENOID <0 « SOLENOID ON) 
P R I N T H A M M E R < - S L E N U 1 1) U N ) 



ROOM FOR STACK 

INITIAL. VALUE FOR STACK POINTER 

POINTER TO NEXT CHAR OUT OF BUFFER 

NUMBER OF CHARS IN BUFFER 



U, 



e 

G 

c 
o 

o 



G 

G 

e 
o 

G 
G 
G 
G 
G 
G 
G 
C 
G 



FILE! I)AISY4:pA0AMP HEWLE ff -PACKARD : DAISY WHEEL PRINTER (c) Coieco IViW Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



NUMBER 01' CHARS IN BUFFER 



Mori, '/ Nov 1983, 13:47 



PAGE 







116 




ELBE 




003D 




117 

tie 


BUF'FER.COUNT 


RMB 
END IF 


1 


003E 




119 


BUFFER 


RMB 


16 


004E 




120 


PLATEN 


RMB 


1 . 


04F 




121 


PLAT ST AT 


RMB 


1 




<0 080> 


122 


PLAISTATj^UNl 


EQU 


10000000B 




<0040> 


123 


PLATSTAT~RUN2 


EQU 


01000000B 




<0 020> 


124 


PLATSTAT STOP 


£QU 


00100000B 




<ooto> 


125 


PLATSTAT_SETTLE 


EQU 


00010000B 


0050 




126 


PLATTICKB 


RMB 


1 


0051 




12? 


FIRE PROOF 


RMB 


2 


0053 




128 


WHEEL 


RMB 


1 


0054 




129 


WHSTAT 


RMB 


1 




<0 080> 


130 


WHS TAT BUSY 


EQU 


10000000B 




<OO40> 


131 


WHSTAT CW 


EQU 


01000000B 




<0 020> 


132 


WHSTAT.SETTLE 


EQU 


00100000B 


0055 




133 


UHEELTICKS 


RMB 


1 


56 




134 


WHEELGONE 


RMB 


1 


0057 




135 


WHEELTOGO 


RMB- 


1 




<0057> 


136 


WHEELPOS 


EQU 


WHEELTOGO 


0058 




137 


HAMMER 


RMB 


1 


0059 




138 


HAMSTAT 


RMB 


1 




<0080> 


139 


HAMSTA7 HFIRE 


equ 


10000000B 




<0040> 


140 


hamstatjwel 


EQU 


01000UOOB 




<0020> 


141 


HAMSTAT RFIRE 


EQU 


001000Q0B 




<0010> 


142 


HAMSTAT~RREL 


EQU 


00010000B 




<000t> 


143 


HAMSTAT ODD 


EQU 


00000001B 


05A 




144 


HAMTICKS 


RMB 


1 


05B 




145 


CARRIAGE 


RMB 


1 


O'OSC 




146 


CAR STAT 


RMB 


1 




<0080> 


147 


CARSTAT.BUSY 


EQU 


10000Q00B 




<0'040> 


148 


CAR5TAT LEFT 


EQU 


01000000B 




<0020> 


149 


CARSTA1 SETTLE 


EQU 


0010000GB 


005D 




150 


CAR TICKS 


RMB 


1 


05E 




151 


CARGGNE 


RMB 


1 


005F 




152 


CAR TOGO 


RMB 


1 




<005F> 


153 


CARPOS 


EQU 


CARTOGO 


0060 




154 


MODE 


RMB 


1 




<0 080> 


155 


MODE JEST 


EQU 


10000000B 




<0 040> 


156 


t ODE„REVERSE 


EQU 


0100 00 00B 


0061 




157 


:mage 


RMB 


1 


062 




158 


HOME__IMAGE 


RMB 


1 


063 




159 


PHANTOM 


RMB 


1 


064 




160 


CLOCK 


RMB 


2 




<0 064> 


161 


WANTJIIHER 


EQU 


CLOCK 






162 




x r 


SHANNON 






163 


« SIG 


RMB 


1 






1 64 


m~len 


RMB 


1 






165 


NET„IN_BUFF 


RMB 


16 






166 




END IF 








167 












168 


x- MISC. CONSTANTS, 








169 










<0008> 


170 


BS EQU 


08H 


A* 




<O00A> 


171 


LF EUUJ 


U0AH 


A^ 




<O00B> 


172 


VT EQU 


0BH 


AS 



THE CHARACTER BUFFER 
COMMAND/RESULT FOR PLATEN ROUTINE 
STATUS OF PLATEN ROUTINE 



TICK COUNTER FOR PLATEN ROUTINE 
TIMEOUT COUNTER 10 SHUT DOWN LF MOTOR 
COMMAND/RESULT FOR WHEEL ROUTINE 
STATUS OF WHEEL ROUTINE 



TICK COUNTER FOR WHEEL ROUTINE 
DISTANCE WHEEL HAS TRAVELLED 
DISTANCE LEFT TO TRAVEL 
WHEEL POSITION WHEN NOT HOMING 
COMMAND/RESULT FOR HAMMER ROUTINE 
STATUS OF HAMMER ROUTINE 



TICK COUNTER FOR HAMMER ROUTINE 
COMMAND/RESULT FOR CARRIAGE ROUTINE 
STATUS -OF CARRIAGE ROUTINE. 



TICK COUNTER FOR CARRIAGE ROUTINE 
DISTANCE CARRIAGE HAS TRAVELLED 
DISTANCE LEFT TO TRAVEL 
CARRIAGE POSITION WHEN N01 MOVING 
CURRENT PRINTER MODE 
SELF -1 EST MODE 

PRINT REVERSE DIRECTION MODE 
IMAGE OF MOTOR OUTPUT PORT 
IMAGE OF MOTOR PORT AT HOME 
PHANTOM POSITION OF CARRIAGE 
TIMER TO TURN OFF MOTORS 
USED BY CARDELAY & WHEELDELAY 



CI I BACKSPACE 

CII LINE FEED 

ASCII VER1 ICAL TAB 



CHAR TO DO 1/2 LINEFEED 



o 



FILE; DAISY4;pADAMP HEWLETT --PACKARD : .DAISY WHEEL PRINTER (c> Coleco 1783 Confidential Hon, 7 Nov 1983, 15:48 
LOCATION OBJECT CODE LINE SOURCE LINE 



PAGE 



e 



o 

G 
G 
O 
G 
G 
G 
• 
G 



<00 0D> 
<0 0GE> 

<OO0F> 
< 1 B > 
<0020> 
<0 07F> 

<005Q> 
<0005> 



<01A1> 
<001B> 
<0024> 



<0064> 
<0047> 
<0032> 
<0029> 
<0023> 
<0020> 
<001D> 
<001B> 
<O01?> 

<00A5> 

< 1 5 > 

<ooia> 

<000F> 
<000D> 
<0 00B> 
<000?> 
<0008> 
<0007> 

<00 08> 
<0 007> 
(0006> 
<0005> 
<0005> 

< 1 B > 
<000A> 

<0006> 
<0 07D> 
<000t > 
<12C0> 



173 
174 
175 
176 
177 
178 
17V 
180 

iei 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 



to 

SI 

ESC 

SP 

DEL 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



PLWIDTH EQU 
HOHE SPOKE EQU 



0ODH 
EH 
0FH 
Q1BH 
020H 
07FH 

80 



ASCII CARRIAGE RETURN 

ASCII SHIFT OUT ~ CHAR TO START 

ASCII SHIFT IN -■■ CHAR TO CANCEL 

ASCII ESCAPE — CHAR TO PRINT 

ASCII SPACE 

ASCII DELETE 



REVERSE PRINT 
REVERSE PRINT 
SPACE" PETAL 



NUMBER OF PRINT COLUMNS ON PLATEN 
SPOKE NUMBER UH£M IN HOME POSITION 



* SOME CONSTANTS BASED ON THE FREQUENCY OF THE CRYSTAL. BECAUSE THE 

* ASSEMBLER IS LIMITED TO 16-BIT ARTHMETIC, THESE CALCULATIONS 

* HAVE TO BE DONE BY HAND (UGH!). 



*XTAL 

*E 
*TICK 

TICK 

MSEC11 

MSEC1S 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



4U00000 

XTAL/4 

E/2400 

417 

27 

36 



# SPEED AND ENERGY CONSTANTS. 



CARSETL 
CARSPD1 
CARSPD2 
CARSPD3 
CARSPD4 
CARSPD5 
CARSPD6 
CARSPD7 
CARSPD8 

WHSETL 
WHSPOl 

UHSPD2 
WHSPD3 
WHSPD4 
WHSPD5 
WHSPD6 
WHSPD7 
WHSPD8 

E4 
E3 
E2 
El 
HAMREL 

R I BE I RE 
R I BR EL 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 



100 
71 
50 
41 
35 
32 
29 
27 
25 

165 

21 

18 

15 

13 

11 

9 

8 

7 

8 
7 



MSEC 11 
10 



J12S 



CRYSTAL FREQUENCY IN HZ 

FREQUENCY OF E CLOCK IN HZ 

NUMBER OF E CYCLES IN 1/2400 SEC (1 TICK) 

NUMBER OF TICKS IN 11 MSEC 
NUMBER OF TICKS IN 15 MSEC 



TICK COUNT TO SETTLE CARRIAGE MOTOR 
CARRIAGE SPEEDS IN TICKS PER STEP 



TICK COUNT TO SETTLE WHEEL MOTOR 

WHEEL SPEEDS IN TICKS PER STEP 



PL JSP LED EQU 6 
PL BRAKE COUNT EQU 125; 255 
PlIsETTLE^COUNT EQU 1 ;75 
PL "TIMEOUT EQU 480 



TICK COUNTS FOR HAMMER ENERGIES 



TICK COUNT TO DE-ENERGISE HAMMER SOLENOID 

TICK COUNT TO ENERGISE RIBBON SOLENOID 
TICK COUNT TO DE-ENERGISE RIBBON SOLENOID 

P L A TEN M O '! R S P E E U . , O 

TICK COUNT TO BRAKE PLATEN MOTOR 

TICK COUNT TO LET MOTOR COAST TO A STOP 

# OF TICKS LH 2 SECOND TIMEOUT 



'^ 



FXLEs DAISY4:pADAMP 
LOCATION OBJECT CODE 



HEWLETT-PACKARD: DAISY WHEEL PRINTER (c) Coleco 1983 Confidential 
LINE SOURCE LINE 



Hon ■ 



7 Nov 1983, 15:48 



PACE 



000 

0000 CE0080 

03 

0003 6F0O 

0005 08 

0006 8C0100 

0009 26F8 

000B 8E003A 

0E 86CC 

0010 9761 
0012 9702 
0014 86FF 
0016 9700 

0018 860F 
001A 9707 
00 1C 860 F" 
001E 9705 



0020 8610 
0032 9701 



IF 

EXT 

ENDIF 

PROG 



1 -SHANNON 
M„SIQ,M m LEN ; NET„IN__BUFF,PR„HAC 



230 
231 

232 
233 
234 
235 

236 * x x x x x x x x x x x x x x * x x x x x x x x x x x x x x x x x x x- x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x 

237 x THIS IS THE INITIALISATION CODE. WE INIT THE MEMORY VALUES AND THE 

238 x HARDWARE, TAKING INTO ACCOUNT WHETHER WE WILL BE IN SELF-TEST MODE 

239 x OR NOT. 
240 

241 RESET 

242 

243 CLEAR MEM 



LDX 


♦00080H 


n 
CLR 


0,X 


I NX 




CPX 


♦001Q0H 


BNE 


CLEARJ1EM 


LDS 


♦STACK 


LDAA 


♦110011Q0B 


ST A A 


IMAGE,D 


STAA 


.MOTORS 


LDAA 


#1 11 1 tit IB 


STAA 


DDR1 


LDAA 


♦0U001111B 


STAA 


BITS 


LDAA 


♦ 00001H1B 


STAA 


DDR 4 



POINT TO START OF RAH 

ZERO IT 

INC, THE POINTER 

HAVE WE CLEARED ALL RAH YET? 

LOOP IF NOT 

INIT THE STACK 

INIT THE STEPPING MOTORS AND THEIR IMAGE 

MAK£ THE PORT AN OUTPUT 

INIT THE BITS ON PORT 4 
MAKE SOME BITS OUTPUTS 



244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 

262 ***************** 10 SATISFY HP- 64000 EMULATOR *************** 

263 LDAA #01 OH 

264 STAA DDR2 MAKE 1HE TX DATA BIT AN OUTPOT 
265 

266 x SEE IF WE'RE IN SELF-TEST MODE, THEN INIT THE SERIAL PORT ACCORDINGLY. 

267 

IF 1 -SHANNON 

READ THE REGISTER 

LOOK AT 1HE DESIGNATED KIT 

BRANCH IF NOT HELD LOW 



RESET THE MODE BYTE 







268 


IF 


1 -SHANNON 


0024 


'9607 


269 


LDAA 


BITS 


0026 


8580 


270 


BITA 


♦BITS.JEST 


028 


2612 


2/1 
272 
273 


BNE 

ENDIF 


N0TJSELF_JE8r 


02A 


8680 


274 


LDAA 


♦MODE TEST 


02C 


9760 


275 
276 


STAA 


MODE,D 


02E 


8604 


277 


LDAA ' 


♦RMCR CC0 


0030 


9710' 


278 


STAA 


rmcr 


32 


860 A 


279 


LDAA 


♦ TRCSR.JfE.OR . 


0034 


9711 


28 


STAA 


TRCSR 


036 


860 


281 


LDAA 


#0 


038 


97 0U 


202 
283 


STAA 


TCSR 


03A 


200C 


284 
285 


BRA 


HUME.J1HINGS 


3C 




286 NOT 


w SELP„TEST 





CONFIGURE SCI -■■■ NO INTERRUPTS 
SET BAUD RATE AND MODE 



DISABLE TIMER INTERRUPTS 



FILE; DAISY4:pADAMF_ HEWLETT-PACKARD : DAISY WHEEL PRINTER (c) Coleco 1983 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Mon, 7 Nov 1983, 15;4V 



PAGE 



^ 



<J 



u 



003C 8604 
03E 9710 
0040 361A 
0042 9711 
0044 8600 
046 97 08 

04B 

0048 0E 

0049 BD0190 
004C 8601 
004E 9763 

0050 BD01E3 
053 9661 
0055 9762 
0057 7C004E 

005A DC09 
005C C301A1 
005F DDQB 
0061 8608 
0063 9708 



0065 

0065 7DG03D 

0068 263B 

006A 7D0000 
061) 3615 



06F 

6F 966 
0071 8580 
073 27 0C 

075 CE04A1 
078 DF3B 



07A 8666 
07C 9731) 
07E 7EQ0A5 



287 
20 8 
289 
29 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
S^9 
340 
341 
342 
343 



LDAA 
ST A A 
LDAA 
STAA 
LDAA 
STAA 

HQMEJTHINGS 

CLI 

JSR 

LDAA 

STAA 

JSR 

LDAA 

STAA 

INC 

LDD 

A00D 

STD 

LDAA 

STAA 



mnck ceo configure sci — interrupts on 

RMCR SET BAUD RATE AND HODE 

♦ TRCSR JTE .OR . TRCSR„RE .OR , TRCSR JUE 

TRCBR 

#0 

ICBR 



CAR HOME 

#1 

PHANTOM, D 
WHEELHOME 
IMAGE ,D 
HOME IMAGER 
PLATEN 

TIMER 

♦TICK 

OCR 

*TCSR EOCI 

TCSR 



ENABLE INTERRUPTS 
HOME THE CARRIAGE 
INIT THE PHANTOM COLUMN 7 MATCH 

HOME THE WHEEL 
SAVE THE HOME IMAGE 

SET THIS TO DO 1/2 LINEFEED WHEN INTERRUPTS TURN ON 

GET THE CURRENT TIMER VALUE 

ADD AN OFFSET TO IT 

STICK RESULT IN THE COMPARE REGISTER 

ENABLE TIMER INTERRUPT 



X X- -X- -X X X X X X X X X X X X X X X X X X X X X X X X x x x X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x THIS IS THE START OF THE MAIN LOOP. 

x THE FIRST THING WE CAN DO IS SEE IF THERE ARE ANY CHARACTERS PROM 
x THE SERIAL LINK READY TO BE MOVED INTO THE RING BUFFER. 

MAIN 

IF SHANNON 

ARE THERE CHARS TO BE PRINTED? 

ARE THERE CHARS TO BE PRINTED? 

BRANCH IF SO 

HAS THE MAC SIGNALLED US? 
BRANCH IF SO 

x This routine is used to point the buffer to the string if the 
x unit is in self-test nod®, If not, it does nothing. 



IF 


SHANNON 




LDD 


BUFFER^COUNT 


>» 


ELSE 






TST 


BOFFER^COUNT 


*» 


ENDIF 






BNE 


PRINT ONE 




ir 


1 -SHANNON 




TST 


M BIG 




BNE 


COPY BUFFER 





MAKEJ>iARS 

LDAA 

BIT A 

BEQ 

ENDIF 

LDX 

SIX 

IP 

LDD 

S TD 

ELSE 

LDAA 

STAA 

;\ MP 



MODE,D 
#M0i>E_„TE8f 
,) NO CHAR 



GET THE MODE BYTE 
SELF-TEST MODE? 
BRANCH IF NOT 



♦STRING ELSE SET THE POINTER TO THE STRING 

BUFFERJMHNiER,D 

SHANNON 

#STRING END-STRING SET THE BYTE COUNT 

BUFFER„COUN{,D 

#STR1NG_END»STRING SET THE BYTE COUNT 

BUFFER J30UNT,D 

PRINT ONE AND GO PRINT IT 



o 



o 



FILE: DAISYAipADAMP HEWLE U -PACK ARO ; DAISY WHEEL PRINTER <c> Coieco 17133 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon ; 7 Nov 1983, 15:49 



PAGE 



0081 




081 


7E015E 


0084 




084 


F60001 


087 


07,5 i) 


0089 


C600 


08B 




0-08B 


CEOOOO 


BE 


3A 


08F 


A600 


0091 


CE0 03E 


0094 


3A 


0095 


A70 


0097 


5C 


0098 


7A0001 


009B 


26EE 


0091) 


CE003E 


00A0 


0F3B 


00A2 


7F000O 


Q0A5 




00A5 


DE3B 


00A7 


A600 


0OA9 


2B25 


OOAB 


8120 


OOAD 


2303 


OOAF 


7E0128 


0B2 




00B2 


2730 


00B4 


8100 


0OB6 


274E 


0B8 


810A 


OOBA 


2756 


OOBC 


8108 


OOBE 


2735 


OOCO 


81 IB 


00C2 


2762 


0C4 


810E 


0OC6 


2714 


O0C8 


81 OB 


OOCA 


274F 


oocc 


81 OF 


OOCE 


2703 


OQDO 




OODO 


7E0153 


0D3 




00D3 


966 


005 


84BF 


Q0D7 


9760 


009 


7E0153 


ODBC 




PC 


966 


/"~ 




\ 





344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

M)S 

389 

390 

391 

392 

393 

394 

395 

396 

^9? 

398 

399 

400 



JNO„CHAR 

J" HP 

COPY BUFFER 
LDAB 
STAB 
LDAB 

MOVE_ONE 

LDX 

ABX 

LDAA 

L0X 

ABX 

STAA 

1NCB 

0EC 

BNE 

L0X 

STX 

CLR 

ENDIF 



PRINT 



SOME 2 



ONE 
LDX 
LDAA 
Bill 
CHPA 
BL8 
JMP 

BEQ 
CMPA 
BEQ 
CMPA 

BEQ 

CMPA 

BEQ 

CMPA 

BEQ 

CMPA 

BEQ 

CMPA 

BEQ 

CMPA 

BEQ 



INVALID 



JMP 



FORWARD 



LDAA 
ANDA 
SI AA 
J" MP 



REVERSE 



LDAA 



NO CHAR 



CO TIMEOUT MOTORS 



M_LEN+1 COPY THE BYTE COUNT 

BUFFER COUNT,© 

#0 1N1T THE OFFSET 



POINT TO MAC'S BUFFER 

POINT TO THE NEXT CHAR 

GET THE CHAR 

POINT TO MY BUFFER 

POINT. TO NEXT FREE SPACE 

SAVE THE CHAR 

INC THE OFFSET 

DEC THE COUNTER 

LOOP UNTIL ALL ARE COPIED 

INir MY OWN POINTER 

BUFFER_POINTER,D 

M SIG TELL THE MAC WE GOT IT 



♦NET_IN„BUFF 

0,X 
♦BUFFER 

0,X 

M^LEN+1 
MOVE ONE 
♦BUFFER 



BUPFERJ>01NTER,D GET THE POINTER TO THE NEXT CHAR 



0,X 

INVALID 

♦SP 

SOME 2 
PRINTABLE 

SPACE 

#CR 

RETURN 

#LF 

LINEFEED 

♦ BS 

BACKSPACE 
♦ESC 
ESCAPE 

♦ SO 

REVERSE 
♦VT 
HALP„LINEFEED 

♦ SI 
FORWARD 

INC 



SET THE CHAR FROM THE BUFFER 
BRANCH IF TOP BIT IS SET 

BRANCH IF IT'S A PRINTABLE CHARACTER (INCLUDING DEL) 

BRANCH IF IT'S A SPACE 

BRANCH IF' IT'S A CARRIAGE RETURN 

BRANCH IF IT'S A LINEFEED 

BRANCH IF IT'S A BACKSPACE 

BRANCH IF IT'S AN ESCAPE 

BRANCH IF IT'S A SHIFT OUT 

BRANCH IF IT'S A VERTICAL TAB 

BRANCH IF IT'S' A SHIFT IN 

ELSE IGNORE IT 



hode,d get the mode byte 

♦dffh-m0dej*everse clear reverse mode bit 
mode/d 

INC 



M(JDE,D 



GET THE MODE BY' 
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OODE 


8A40 




0OE0 


9760 




0E2 


206F 


> 


00E4 






0OE4 


9660 


> 


00E6 


8540 


0E8 


2611 




OOEA 






OOEA 


9663 


^ 


EC 


8150 




OGEE 


2263 




00F0 


70 063 




0F3 


205E 




OOFS 




5 


OOFS 


9660 




0F7 


8540 




OOF? 


26EF 


") 


OOFB 






OOFB 


9663 




OOFD 


8101 


"""l 


OOFF 


2352 




0101 


7A0063 


>. 


0104 


204D 


J 


0106 






0106 


9660 


3 


0108 


84BF 




010A 


9760 




010C 


8601 


'J 


01 OE 


9763 




0110 


2041 


J 


0112 






0112 


964E 




0114 


81 FF 


'J 


0116 


27PA 




0118 


7C0 4E 


J? 


1 1 B 






01 IB 


964E 




01 ID 


81 FF 


J 


1 1 F 


27FA 




0121 


7C004E 


. v 


0124 


202D 


-^ 


0126 




-, 


1 26 


8620 


^J 


0128 






0128 


D663 


J 


012A 


CI 50 




012C 


2225 




012E 


9753 


i 


0130 






0130 


7DQ05B 


D 


f - 





401 
402 
403 
404 
405 
406 
407 
408 
4 09 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 



SPACE 



GORIGHT 



ORAA 
STAA 
BRA 



LDAA 
BITA 
BNE 

LDAA 

CHPA 

BHI 

INC 

BRA 



BACKSPACE 

LDAA 
BITA 
BNE 



GOLEFT 



RETURN 



LDAA 

CHPA 

BLS 

DEC 

BRA 



LDAA 
ANDA 
STAA 
LDAA 
STAA 
BRA 

LINEFEED 

LDAA 
CHPA 
BEQ 
INC 

HALF LINEFEED 
LDAA 
CHPA 
BEQ 
INC 
BRA 



ESCAPE 



LDAA 



PRINTABLE 

LDAB 
CHPB 
BHI 
STAA 

PRINTABLE1 
T ST 



#MOD£J*£VERSE 

MODE,D 

INC 



MODE,!) 

#MOD£„REVERSE 
GOLEFT 

PHANTOM, D 

#PLWIDTH 

INC 

PHANTOM 

INC 



MODE,D 

♦MODE REVERSE 

GORIGHT 

PHANTOM ,D 

#1 

INC 

PHANTOM 

INC 



SET REVERSE MODE BIT 



GET THE MODE BYTE 
CHECK FOR REVERSE MODE 
BRANCH IF REVERSE MODE 



IN EFFECT 



GET THE PHANTOM COLUMN NUMBER 
IS THERE ROOM TO GO TO THE RIGHT? 
BRANCH IF NOT 
ELSE INC. IT 



GET THE MODE BYTE 

CHECK FOR REVERSE MODE 

BRANCH IF REVERSE MODE IN EFFECT 

GET THE PHANTOM COLUMN NUMBER 
IS THEHE ROOM TO GO TO THE LEFT 
BRANCH IF NOT 
ELSE DEC, IT 



MODE,D GET THE MODE BYTE 

#OFFH~MO0E„REVERSE CANCEL REVERSE MODE 

MODE,D 

#1 SET THE COLUMN NUMBER 

PHANTOM >D 

INC 



PLATEN ,D 

*0FFH 

LINEFEED 

PLATEN 



PLATEN, D 

♦ OFFH 

HALFJ.INfc.FEED 

PLATEN 

INC 



#SP 



PHANTOM, D 
♦PLWIDTH 
INC 
WHEEL, D 

CARRIAGE 



GET THE PLATEN COMMAND/RESULT BYTE 
IS IT ALREADY FULL? 
WAIT FOR IT IF SO 
ELSE INC. IT TWICE 



GET THE PLATEN COMMAND/RESULT BYTE 
IS IX ALREADY FULL 
WAIT FOR- II IF SO 
ELSE INC. IT 



GET A SPACE AS 1 HOUGH IT WERE PRINTABLE 



CHECK THE COLUMN NUMBER 

HAVE WE PAST f HE LAST COLUMN? 

BRANCH IP SO — CAN'T PRINT HERE 

GIVE THE CHARACTER TO THE WHEEL ROUTINE 

IS THE CARRIAGE MOVING 
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0133 


26FB 


1 35 


0663 


0137 


D75B 


0139 




013? 


D653 


013B 


DA5B 


01 30 


DA4E 



013F 26F8 



0141 
0144 
0145 
0147 
0148 
014A 



CE05/ 

16 

C020 

3A 

A60 

9758 



014C 

014C 7D005 
014F 26FB 
0151 2091 



0153 
0153 DE3B 

0155 08 

0156 DF3B 



0158 7A003D 
015B 7E0065 



01SE 




015E 


7D0Q5B 


0161 


26F8 


0163 


9663 


1 65 


975B 


0167 


CCFFFF 


01 6 A 


DD64 


016C 




01 60 


7O0000 


016F 


26EA 


0171 


DC64 


0173 


26F7 







458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
48V 

49 
491 
492 
493 
494 
495 
496 
49/ 
498 
49? 
500 
501 
502 
503 
504 
505 

50 6 
507 
50 8 
509 
510 
511 
512 
513 
514 



BNE 

LDAB 

STAB 

FIREJrfAIU 

LDAB 
ORAB 
ORAB 

x GRAB 
BNE 

LDX 

TAB 

SUBB 

ABX 

LDAA 

STAA 

FIRE WAIT2 
1ST 
BNE 
BRA 



PRINTABLE! 
PHANTOM, D 
CARRIAGE,!) 

WHEELED 
CARRIAGE,!) 
PLATEN, D 
HAMMER ,D 
FlREJ/rfAItl 

♦ENERGIES 

#SP 

0,X 

HAMMER, D 



HAMMER 

FIRE_WAIT2 

SPACE 



WAIT IF IT IS 

THEN TELL II WHERE TO GO 



WAIT FUR ALL HOT ION TO CEASE 



POINT ID THE HAMMER ENERGY TABLE 

REMOVE PRINTABLE OFFSET 

ADD OFFSET 1*0 THE TABLE ADDRESS 

GET THE ENERGY 

TELL THE HAMMER TO FIRE 



IS THE HAMMER FINISHED 

LOOP IF NOT 

THEN MOVE THE CARRIAGE 



* WHEN WE HAVE FINISHED WITH THE CURRENT CHARACTER, WE COME HERE 10 

* UPDATE THE BUFFER POINTER , 



INC 



JMAIN 



LDX 

INX 

SIX 

IF 

LDX 

DEX 

SIX 

ELSE 

DEC 

END IF 

JMP 

IF 



BUFFER POINTER, D GET THE POINTER 

INC. IT 
BUFFER.POlNTERjD UPDATE MEMORY 
SHANNON 
BUFFER„COUNT,D DEC. THE CHAR COUNT 

BUFPER m COUNT,D 

BUFFER^COUNT DEC. I HE CHAR COUNT 

MAIN AND LOOP FOR THE NEXT CHARACTER 



1-SHANNON 
x IF THERE ARE NO CHARACTERS IN THE BUFFER TO PROCESS, WE COME HERE, 

* WE MAKE SURE THE CARRIAGE IS IH ITS PROPER POSITION, THEN WE 

* START A TIMER, IF NO CHARACTERS ARRIVE BEFORE THE TIMER RUNS OUT, 

* WE TURN OFF THE STEPPING MOTORS. 



NO CHAR 



TIMEOUT 



TST 
BNE 
LDAA 
STAA 

LDD 

sn> 

TST 
BHE 
LDD 
BNE 



CARRIAGE 
JMAIN 
PHANTOM, D 
CARRIAGES 

♦0FFPFH 
CLOCK,!) 

M„S1G 
JMAIN 
CLOCK, D 
TIMEOUT 



IS THE CARRIAGE ALREADY IN MOTION 
BRANCH IF SO — WE'LL LOOK AGAIN LATER 
ELSE GET ITS PROPER POSITION 
TELL CARRIAGE TO GO THERE 

SET THE TIMER 



HAS THE MAC ANYTHING FOR Mi? 
BRANCH TO ^HF. TOP IF SO 
HOW'S THE TIMER DOING 
LOOP IF IT'S NOT ZERO YET 



o 
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0175 86Ff ; 
0177 9/02 



0179 

0179 7DQOO0 

017C 27FB 



017E 




G17E 


9661 


0180 


9702 


0183 


BD0190 


0185 


BD01E3 


0188 


966^ 


018A 


9761 


018C 


9702 


01 BE 


20CB 



0190 



0190 8D2D 
0192 8D41 
0194 9607 
0196 8510 
0198 £6, 6 



019A 

019A 8D0D 
019C 8037 
019E 960 7 
01A0 8510 
01A2 27F6 



01A4 8601 
01A6 9751" 

01 AS 39 



51 S 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
5 6 3 
564 
5 6 5 
566 
567 
568 
569 
57 
571 



LIMA 
STAA 



#11111 1 1 1 B 
MOTORS 



'TURN OFF THE STEPPING MOTORS 



* NOW WE JUST SIT HERE WAITING FOR A CHARACTER TO ARRIVE 



AWAIT_CHAR 
TST 

BEQ 



M__S1G 

AW A I T CHAR 



HAS THE BUFFER ANY NEWS? 
. LOOP IF NOT 



* WHEN ONE DOES ARRIVE, WE RE-POWER THE MOTORS. BECAUSE THEY MIGHT 

* HAVE SHIFTED POSITION WHILE THE POWER WAS OFF, WE HAVE TO HOME THE 

* CARRIAGE AND THE DAISY WHEEL, 



GOT CHAR 



LDAA 

STAA 

0SR 

JSR 

LDAA 

STAA 

STAA 

BRA 

ENDIF 



IMAGE,© 

MOTORS 

CARHOME 

WHEELHOME 

HOME. IMAGE, D 

IMAGE,!) 

MOTORS 

JMAIN 



GET THE LAST KNOWN VALUE FOR I HE MOTORS 

TURN THEM ON AGAIN 

HOME THE CARRIAGE 

HOME THE WHEEL 

FORCE MOTORS TO SAME AS POWER-UP 



AND RETURN TO THE TOP OF THE LOOP 



X -X- * * X X X X X X- * X X X X- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X- X X X X X X X X X X X X X X X X X X X X X X X X 

x CARHOME — THIS ROUTINE MOVES THE CARRIAGE TO THE LEFT MARGIN, 

x THE CARRIAGE IS MOVED AT A CONSTANT, SLOW SPEED WHILE WE WATCH FOR 

x THE LEFT MARGIN SWITCH. 

CARHOME 

x FIRST WE MOVE THE CARRIAGE TO THE RIGHT, IN CASE IT IS LEFT OF THE 
x LEFT MARGIN SWITCH. 

MOVE ONE STEP RIGHT- 
LET MOTOR SETTLE 
GET THE STATUS BYTE 
LOOK AT THE LEFT MARGIN SWITCH 
LOOP IF WE'RE STILL AT LEFT MARGIN 

x AFTER WE'RE SURE WE'RE TO THE RIGHT OF THE DESIRED POSITION, WE 
x CAN MOVE IHE CARRIAGE- LEFT UNTIL WE HIT THE LEFT MARGIN SWITCH, 

CARHOME2 

BSR STEP^LEFT MOVE ONE STEP LEFT 

BSR CAR^DELAY LET MOTOR SETTLE 

LDAA BITS GET THE STATUS BYTE 

BITA #BITS LEFT LOOK AT THE LEF T MARGIN SWITCH 

BEQ CAKH0ME2 LOOP IF WE'RE NOT AT LEFT MARGIN 

x THEN WE UPDATE THE POSITION BYTE TO REFLECT OUR NEW POSITION. 



BSR 


STEP RIGHT 


BSR 


CARJdELAY ' 


LDAA 


BITS 


BITA 


*BlTS m LEFT 


BNE 


CARHOME 



LDAA 
STAA 

RTS 



#1 
CARPOS,D 



GET COLUMN NUMBER 
AND SAVE IT 
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01 B2 


C40S 


0184 
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01B5 


0661 


01B7 


C4F0 


01B9 
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01BA 


9761 


01BC 


9702 


01 BE 


39 



01BF 




1 BF 


9661 


01C1 


16 


01C2 


48 


01C3 


54 


01 04 


54 


01C5 


54 


1 C6 


84 OE 


01C8 


C401 


01CA 


IB 


01CB 


0661 


01 CD 


C4F0 


01CF 


IB 


01 DO 


9761 


0102 


97 a z 


01 04 


39 



0105 




0105 


0CO9 


0107 


C373A7 


01 DA 


0D64 


01 DC 




01 DC 


DC 9 


O10E 


9364 


01 EG 


2BFA 



57a 

573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
6 1 9 
620 
621 
622 
623 
624 
625 
626 
627 
628 



X X X * -X- -X- * * -X * X- X X X X X X * X X X X X X X X X -X X X X X X X X X X X X X X X X X X x X X X X X X X X X X X X X X X X X X X X X X X X X 

x STEP LEFT — THIS ROUTINE PERMUTES THE ORDER OF THE BUS TH THE 
x- MOTOR PORT FROM 76543210 10 76540321, THUS MOVING THE CARRIAGE 
x ONE STEP ro THE LEFT, 



STEP_LEFT 

LDAA 

TAB 

LSRA 

LSLB 

LSLB 

LSLB 

ANDA 

ANDB 

ABA 

L0AB 

ANDB 

ABA 

STAA 

STAA 

RTS 



IMAGE, D 



#00000tllB 
*00001000B 

IMAGE, D 
#11110OG0B 

IHAGE, D 
MOTORS 



GET- THE CURRENT PATTERN 

PUT INTO BOTH ACCUMULATORS 

HOME SOME BITS ONE POSITION RIGHT 

HOVE OTHER BITS 3 PLACES LEFT 



PICK OUT "I HE BITS WE WANT 

MIX THEM TOGETHER 

PICK. UP THE BITS THAT DON'T HOVE 
HIX THEM IN TOO 
UPDATE THE IHAGE 
UPDATE THE PORT 



X X X X- XX X X X XX X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x STEP RIGHT — THIS ROUTINE PERMUTES THE ORDER OF THE BUS IN THE 
x MOTOR PORT FROM 76543210 TO 76542103, THUS HOMING THE CARRIAGE 
x ONE STEP TO THE RIGHT* 



STEP JUGHT 

LDAA 

TAB 

LSLA 

LSRB 

LSRB 

LSRB 

ANDA 

ANDB 

ABA 

LDAB 

ANDB 

ABA 

STAA 

STAA 

RTS 



IHAGE, 



#00001110B 
♦00000001B 

IMAGE,D 
♦ UliOOOOB 

IMAGE, D 
MOTORS 



GET THE CURRENT PATTERN 
PUT INTO BOTH ACCUHULATORS 
HOVE SOHE BITS ONE POSITION LEFT 
HOVE OTHER BITS 3 PLACES RIGHT 



PICK OUT THE BITS WE WANT 

MIX THEM TOGETHER 

PICK UP THE BUB I HA') DON 'I HOVE 
MIX THEM IN TOO 
UPDATE THE IHAGE 
UPDATE THE PORT 



X X- X X X X X X X X X X X X X X X X X X X X X X X -X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x CAR_DELAY — A ROUTINE TO DELAY FOR THE APPROPRIATE T IME SO AS TO 
x PROVIDE A SLOW STEPPING RATE TO THE CARRIAGE MOTOR, 



CAR_DELAY 

LDD 

ADDD 

SID 

CAR__DELAY2 
LDD 
SUB I) 
BM1 



TIMER 

*carspdi*n:ci< 
wantjumer.d 

TIMER 

WAN T* .J*! HER, i) 

CAR DELAY2 



GET THE CURRENT TIMER VALUE 
CALCULATE DESIRED TIMER VALUE 
AND SAVE IT 

GET THE CURRENT TIMER VALUE 
COMPARE IT "10 DESIRED VALUE 
LOOP IF NOT YET 



I> 
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84E0 


0205 
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0208 


066 1 
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C40F 


020C 
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9761 


020F 


9702 
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649 
650 
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668 
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678 
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RTS 

■X X X X- X X x- x- X x- -x- -X * x x x- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x WHEELHOHE — THIS ROUTINE HOMES THE WHEEL TO ITS HOHE POSITION, 
x THE WHEEL IS HOMED AT A CONSTANT , SLOW SPEED WHILE WE WATCH FOR 
x THE WHEEL HOHE SENSOR , 

WHEELHOHE 

x FIRST WE HOME THE WHEEL TO HAKE SURE IT IS NOT AT THE HOHE POSITION. 

HOME ONE STEP 

LET MOTOR SETTLE 

GET THE STATUS BYTE 

LOOK AT THE WHEEL HOHE SWITCH 

LOOP IF WE'RE STILL AT HOHE POSITION 

x AFTER WE'RE SURE WE'RE NOT AT THE HOHE POSITION, WE CAN ROTATE THE 
x WHEEL INTO THE PROPER POSITION. THE REASON FOR THE DOUBLE CHECK IS 
x SO THAT WE AVOID ANY ERRORS DUE TO THE WIDTH OF THE LITTLE FINGER 
x WHICH TRIPS THE HOHE SENSOR. BY DOING IT THIS WAY WE ARE ALWAYS 
x LOOKING FOR THE SAME EDGE OF THE FINGER, AND ITS WIDTH HAS NO EFFECT, 



BSR 


ROT CCW 


BSR 


WHEEL DELAY 


LDAA 


BITS 


BITA 


#BI IS SP0KE5 


BNE 


WHEELHOHE 



WHEELS 



BSR 

BSR 

LDAA 

BITA 

BEQ 



ROT CCW 

WHEEL_DELAY 

BITS 

#BITS„SP0KE5 

WHEEL2 



HOME ONE STEP 

LET MOTOR SETTLE 

GET THE STATUS BYTE 

LOOK AT THE WHEEL HOHE SWITCH 

LOOP IF WE'RE NOT AT HOHE POSITION 



* THEN WE UPDATE THE POSITION BYTE TO REFLECT OUR NEW POSITION, 



LDAA 
STAA 

RTS 



#HOHE SPOKE 
WHEELP08,D 



GET THE HOHE SPOKE NUHBER 
AND SAME IT 



X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x ROT_CCW — THIS ROUTINE PERHUTE8 THE ORDER OF THE BITS IU THE 
x HOTOR PORT FRON 76543210 TO 65473210, THUS HOMING THE WHEEL 
x- ONE STEP 



ROT CCW 



EP COUNTER-CLOCKWISE, 


LDAA 


IMAGE, D 


TAB 




LSLA 




LSRB 




LSRB 1 




LSRB 




ANDA 


#U100000B 


ANDB 


#0.0 010 0B 


ABA 




L.OAB 


I MAGE, D 


ANDB 


#00001 11 IB 


ABA 




ST AA 


I MAGE, D 


STAA 


HOT OR S 



GET THE CURRENT PATTERN 
POT INlO BOTH ACCUHULATORS 
HOME SOHE BITS ONE POSITION LEFT 
HOME OTHER BITS 3 PLACES RIGHT 



PICK OUT THE BITS Wt... WANT 

HIX THEM TOGETHER 

PICK UP THE. BITS THAT' DUN-") HOME 
MIX THEM IH TOO 
OP DATE THE IMAGE 
UPDATE THE PORT 






o 
e 

c 
o 
c 

G 
C 
O 

o 

Cl.' 

o 

C 

o 
o 
o 
o 
o 
# 
o 



FILE.! »AISY4:pADAMP HEWLETT-PACKARD! DAISY WHEEL PRINTER < c > Coleco 1983 Confidential 
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Hon, 7 Nov 1984, 15:5;; 



PAGE 



13 



02ti 39 



0212 




0212 


9661 


0214 


16 


0215 


44 


0216 


58 


0217 


53 


0218 


58 


0219 


8470 


021B 


C480 


021D 


IB 


021E 


D661 


0220 


C40F 


0222 


IS 


0223 


9761 


0225 


9702 


0227 


39 



0228 




0228 


DC09 


022A 


C33AA4 


022D 


DD64 


022F 




022F 


DC09 


0231 


9364 


0233 


2BFA 


0235 


39 



236 
0236 
0238 
023A 
023D 
023F 
0242 



9608 

DC 09 

C301A1 

DD0B 

7F0O08 

OE 



0243 

0243 DC64 
0245 2705 
0247 330 01 



686 
687 
688 
68V 

69 
691 
692 
693 
694 
695 
696 
697 
698 
699 

70 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 



RTS 



X X -X- -X- X X -X X -X -X X X- X X- X X X X* X X X X X * X -X X X X X- X X X X -X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x ROT^CW — (HIS ROUTINE PERMUTES THE ORDER OF THE BITS IN THE 
x MOTOR PORT FROM 76543210 10 47653210, THUS MOVING THE WHEEL 
x 



KUI J.;W IHJ-b KUUUNb I'Limilltb 1Mb. UKJ^bK US" 1Mb. i.U \ b 

HOTOR PORT FROM 76543210 10 47653210, THUS MOVING THE 
ONE STEP CLOCKWISE. 



ROT CW 



LDAA 


IMAGER 


TAB 




L3RA 




L8LB 




LSLB 




LSLB 




ANDA 


♦011100QOB 


ANDB 


#100000006 


ABA 




LDAB 


IMAGER 


ANDB 


♦OOOOllllB 


ABA 




STAA 


IMAGE >D 


STAA 


MOTORS 


RTS 





GET THE CURRENT PATTERN 

PUT INTO BOTH ACCUMULATORS 

HOME SOME BITS ONE POSITION RIGHT 

MOVE OTHER BITS 3 PLACES LEFT 



PICK OUT THE BITS WE WANT 

MIX THEM TOGETHER 

PICK UP THE BITS THAT DON'T HOVE 
MIX THEM IN TOO 
UPDATE THE IMAGE 
UPDATE THE PORT 



X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x WHEEL DELAY -- A ROUTINE TO DELAY FOR THE APPROPRIATE TIME SO AS TO 
* PROVIDE A SLOW STEPPING RATE TO THE WHEEL MOTOR. 



WHEEL DELAY 
LDD 
ADDD 
STD 

WHE£L w 0ELAY2 
LDD 
SUBD 
BMI 
RTS 



T IMER 
#MSEC15*TICK 

WANT_JIMER,D 

TIMER 

WAN?'„TIMER>D 
WHEEL DELAY2 



GET THE CURRENT TIMER VALUE 

CALCULATE DESIRED TIMER VALUE (IN CYCLES) 

AND SAVE IT 

GET THE CURRENT TIMER VALUE 
COMPARE IT TO DESIRED VALUE 
LOOP IF NOT YET 



X X X X X x- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

■x THIS IS THE START OF THE LOOP WHICH RUNS EACH TIME XHWE IS A 
x TIMER COMPARE INTERRUPT <ABUU1 2400 TIMES PER SECOND). 



INT LOOP 



LDAA 

LDD 

ADDD 

STD 

CLR 1 

CLI 



1CSR 
TIMER 
♦ TICK 
OCR 
TCSR 



READ THIS TO START 10 CLEAR THE FLAG 

GET CURRENT TIMER CONTENTS 

CALCULATE WHEN WE WANT ANOTHER INTERRUPT 

UPDATE COMPARE REGISTER 

BUT TURN OFT- TIMER INTERRUPTS 

ALLOW SERIAL INTERRUPTS 



x UPDATE THE CLOCK 
x IS ALREADY ZERO, 



USED TO TIME THE 
DON'T CHANGE IT. 



HOTOR TURN-OFF PERIOD. 



IF IT 



DEC 



CLOCK 

LDD 
BEQ 
SUBD 



CLOCK, D GET CURRENT CONTENT: 

DEC„CLOCK__END WIX IF ZERO 

#1 " ELSE DECREMENT It 



e 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
c 

o 
o 
c 
o 
o 
o 
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PAGE 14 



024A 1)1)64 
024C 



024C 

024C 9654 
024E 8580 
0250 263C 
0252 D653 
0254 2736 



0256 CE04F7 

0259 3A 
025A E60 

025C DQ57 
G2SE 2603 

0260 7E02E4 



0263 




0263 


2B0B 


0265 


C131 


0267 


2D0A 


0269 


C060 


026B 


2006 


026D 




Q26P 


C1D0 


026F 


2E02 


0271 


CB6 



0273 




0273 


5D 


0274 


2B08 


0276 


8A80 


0278 


84BF 


027 A 


9754 


027C 


2005 


027E 




027E 


8 ACQ 


0280 


9754 


0282 


50 



743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 

778 
779 

78 
781 
7 82 
783 
784 
785 
786 
787 
788 
VB9 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 



sro 

DEC CLOCK END 



CLOCK;!) 



AND UPDATE IT 



* SEE IF IT'S TIME TO STEP THE DAISY WHEEL MOTOR. THIS PIECE OF 

•x CODE MAINTAINS ITS OWN STATUS SO THAT IT KNOWS WHAT IT WAS DOING 

* THE LAST TIME WE CAME BY THIS WAY, 

POSWHEEL 

LDAA WHSTAT,D GET T HE STATUS BYTE 

BITA #WHSrAT BUSY LOOK AT THE ACTIVITY BIT 

BNE WHEEL3 BRANCH IF WE WERE ALREADY DOING SOMETHING 

LDAB WHEELED ELSE SEE IF WE'VE GOTTEN A NEW COMMAND 

BEQ JWH.END BRANCH IF NOT ~ NOTHING TO DO 

x- IF WE HAVE A NEW COMMAND, CONVERT THE ASCII VALUE INTO A SPOKE NUMBER. 

#SPOKES-SP 



LDX #SPOKES-SP POINT TO THE TABLE (MINUS ASCII OFFSET) 
ABX ADD OFFSET TO TABLE ADDRESS 

LDAB 0,X GET THE SPOKE NUMBER 

SUBB WHEELPOS,D * SEE HOW FAR WE HAVE TO MOVE THE WHEEL 

BNE WHEELXX BRANCH IF WE HAVE TO MOVE IT 

JMP WHJDONE BRANCH IF IT'S ALREADY WHERE WE WANT IT 

* WE NOW HAVE A NUMBER IN THE RANGE -95 TO 95 INCLUSIVE (EXCEPT ZERO). 

* TO OPTIMISE WHEEL MOTION WE WANT TO CONVERT IT TO THE RANGE 

* -47 TO 48 INCLUSIVE. IF IT IS BETWEEN -95 AND -48 WE'LL ADD 96. 

* IF IT IS BETWEEN 49 AND 95 WE'LL SUBTRACT 96. 



WHEELXX 



NEG 



BMI 

CHPB 

BLT 

SUBB 

BRA 

CMPB 
BGT 

ADDB 



NEG 
#49 
DIR 
#96 
DIR 

#-■48 

DIR 

#96 



BRANCH IF IT'S A NEGATIVE NUMBER 

BRANCH IF < A < 49 
FIX IT. IF A >* 49 



BRANCH IF -48 < A < 

FIX IT IF A <= -48 



* NOW, BASED ON THE RESULT FROM ABOVE, WE CAN DECIDE WHICH DIRECTION TO 

* SPIN THE WHEEL. 

DIR 

TSTB 

BHI CW BRANCH IF WE'RE GOING CLOCKWISE 

ORAA #WHSTAT BUSY SET THE ACTIVITY BIT 

ANDA #0FFH-WHSTAT CW CLEAR THE CLOCKWISE BIT (WE'RE GOING CCW) 

SIAA WHS TAT, D 

BRA WHJJETVARS 
CW 

ORAA #WHSlAT„BUSY.OR.WHS]AT_CW SET THE BUSY & CW BITS 

STAA WHS T AT , 5 

NEGB MAKE THE DISTANCE POSITIVE 

x NOW WE CAN INIT SOME OI : THE VARS WE'LL BE USING WHILE MOVING THE 

* WHEEL . 



o 



p 
o 



© 

o 
o 

© 

© 
© 
O 
O 
© 

© 

© 
o 



FILE: »AISY4:pADAMP HEWLETT-PACKARD: DAISY UHfc.fc.l_ PRINTER <c) Coleco 1V83 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon, '/ Now IVCii, 1S:£>3 



'AGE 15 



0283 




0283 


D757 


0285 


7F0 056 


0288 


8601 


028A 


9755 


028C 


205C 



028E 




028E 


7A0055 


0291 


2657 


0293 


8520 


0295 


264D 


0297 


854 


0299 


2605 


029B 


BD 01FC 


029E 


2003 * 


02A0 




02A0 


BDQ212 


02A3 




02A3 


7C0 056 


02A6 


7A0057 


02A9 


2723 



02AB 


D657 


02AD 


D156 


02AF 


2302 


02B1 


D656 


02B3 




02B3 


C108 


02B5 


2302 


02B7 


C608 


02B9 




02B9 


CE050E 


02BC 


3A 


02BC 


E600 


02BF 


D755 


02C1 


D606 


02C3 


53 


02C4 


54 


02C5 


54 


02C6 


54 


02C7 


54 


02C8 


DB55 


02CA 


D755 


02CC 


201C 



800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
82V 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 



WH„SETVARS 

STAB 
CLR 
LIMA 
STAA 

JWH EN3D BRA 



WHEELTOGO, D 
WHEELGONE, D 
#1 

WHEELTICKS, D 
WH END 



SET HUM FAR. WE HAVE TU GO 

BET HOW FAR WE'VE ALREADY GONE 

FAKE OUT THE COUNTER 



THEN EXIT 



1 MINUS HAPPEN NEXT TIME 



* IF ME WERE ALREADY BUSY DOING SOMETHING, WE COME HERE 10 CARRY ON. 



WHEEL3 



GO CW 



WHEEL4 



DEC 

BNE 

B1TA 

BNE 

B1TA 

BNE 

JSR 

BRA 

JSR 

INC 
DEC 
BEQ 



WHEELTICKS 
WHJEND 

#WHSTAT„SE7TLE 
WH_DONE 
#WHSTAT CW 
GO CW 
ROT CCW 
WHEEL4 

ROT„CW 

WHEELGONE 
WHEELTOGO 
WH SETTLE 



DEC. THE TICK COUNTER 

BRANCH If IT'S HOT TIME TO DO ANYTHING 

IS THE WHEEL SETTLING? 

BRANCH IF SO ~ WE'RE ALL DONE 

ELSE LOOK AT THE DIRECTION BIT 

BRANCH IF IT IS CLOCKWISE 

ELSE STEP THE WHEEL COUNTER-CLOCKWISE 



STEP I HE WHEEL CLOCKWISE 

WE'VE TAKEN ANOTHER STEP 
AND WE'VE GOT ONE LESS TO GO 
BRANCH IF WE'VE GOT ZERO TO GO 



* TO FIGURE HOW LONG TO WAIT BEFORE THE NEXT STEP, WE HAVE TO SEE 

* WHERE' WE ARE IN OUR TRAVEL, CALCULATE THE EXPRESSION! 

* MZNC WHEELGONE, WHEELTOGO, 8 ) AND USE THE RESOLT AS AN OFFSET 
•x INTO THE SPEED TABLE. THE NUMBER FROM THE TABLE BECOMES OUR 

* NEW TICK COUNT. 



WHEELS 



WHEEL6 



LDAB 
CMPB 
BLS 
LDAB 

CMPB 

BLS 

LDAB 

LDX 

ABX 

LDAB 

STAB 

LDAB 

COMB 

LSRB 

LSRB 

LSRB 

LSRB 

ADDB 

STAB 

BRA 



WHEELTOGO, D 
WHEELGONE, D 
WHEELS 

WHEELGONE, D 

#8 

WHEEL6 

#8 

#WHEEL5PEEDS~1 

0,X 

WHEELTICKS, D 
FUDGE 



WHEELTICKS, D 
WHEEL TICKS ,1) 
WH END 



GET ONE OF THE TERMS 

COMPARE IT TO ANOTHER 

BRANCH IF THE ONE WE HAVE IS SMALLER 

ELSE GET THE OTHER ONE 

COMPARE IT 10 THE LAST TERM 

BRANCH IF THE ONE WE HAVE IS SMALLER 

ELSE GET THE LAST ONE 

POINT TO THE SPEED TABLE 
ADD THE OFFSET- 
GET THE TICK COUNT 
SAVE IT 

READ THE FUDGE VALUE 
COMPLEMENT IT 
SHIFT THE NYBBLE DOWN 



ADD TO THE CALCULATED VALUi: 
AND SAVE THE NEW VALUE 
AND LEAVE 



* IF WE HAVE JUST ARRIVED AT OUR DESTINATION, Wl 
•x- TICK CUttUrCR FOR THE SETTLING TIME, AND RESET 



! CAN SET UP THE 
THE STATUS FLAGS. 



© 

p 

O 






O 

o 

© 



G 



© 
© 
© 

© 

© 

© 
© 

o 
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PACE 



16 



02CE 




02CE 


86A5 


02D0 


9753 


02D2 


D653 


02D4 


CE04F7 


G2D7 


3A 


02D8 


£600 


ohda 


D757 


02DC 


9654 


02DE 


8A20 


02E0 


9754 


G2E2 


2006 



2E4 

02E4 7F0Q53 

02E7 7F0054 

G2EA 



02EA 

02EA 965C 
02EC 8580 
02EE 2623 
02F0 D65B 



02F2 



>71D 



02F4 D05F 
U2F6 2769 



02F8 


2B08 


U2FA 


8A80 


02FC 


84 BF 


U2FE 


975C 


0300 


2005 


0302 




0302 


8AC0 


0304 


975C 


0306 


50 



857 
858 
859 
860 
861 
862 
863 
864 
865 
366 
867 
868 
869 
87 
871 
872 
873 
874 
87S 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 



-x- THIS IS ALSO A HANDY TIME TU STORE THE CURRENT WHEEL POSIT ION. 



WH SETTLE 

LDAA 

BTAA 

LDAB 

LOX 

ABX 

LDAB 

STAB 

LDAA 

ORAA 

STAA 

BRA 



♦WHSETL 

WHEELTICKS,0 
WHEEL, D 
♦SPOKES-SP 

o,x 

WHEELPGS,D 
WHSTAT,D 
#WHS1AT SETTLE 
WHS TAT, 6 
WH END 



SET THE TICK COUNTER 

GET THE SPOKE NUMBER AGAIN 



AND SAVE THAT AS OUR CURRENT POSITION 
UPDATE THE STATUS 



AND EXIT 



* IF WE HAVE JUST FINISHED LETTING THE WHEEL SETTLE, OR IF IT HAD 

* NOWHERE TO GO, WE CAN RESET EVERYTHING AND PREPARE FUR THE NEXT 

* TIME AROUND, 



WH DONE 



CLR 
CLR 



WHEEL 
WHSTAT 



CLEAR THE COMMAND/STATUS BYTE 
AND SHOW WE ARE DONE 



WH END 



* THEN WE ENTER THE CODE WHICH POSITIONS THE CARRIAGE, THIS CODE 

* MAINTAINS ITS OWN STATUS SO IT CAN RECALL WHAT IT WAS DOING 

* THE LAST TItyE IT RAN* 



POSCAR 



LDAA CARSTAT,D 

BITA *GARSTAT_BUSY. 

BNE CARRIAGES 

LDAB CARRIAGE, O 

BEQ JCAR END 



GET THE STATUS BYTE 

LOOK AT THE ACTIVITY BIT 

BRANCH IF WE WERE ALREADY DOING SOMETHING 

ELSE SEE IF WE HAVE GOTTEN A NEW COMMAND 

BRANCH IF NOT — NOTHING TO DO 



* IF THIS IS A NEW COMMAND, WE CAN INIT VARIOUS THINGS. FIRST THING 

* TO DO IS SEE HOW FAR THE CARRIAGE WILL HAVE TU TRAVEL. NOTE THAT 
x- THE COMMAND BYTE IS A COLUMN NUMBER, BUT ALL INTERNAL CALCULATIONS 
x ARE DONE IN MOTOR STEPS. THERE ARE TWO STEPS PER PRINT COLUMN, 



SUBB 
BEQ 



CARPOS,D 
CAR DONE 



SEE HOW FAR WE HAVE 
BRANCH if CARRIAGE 



TO GO 
IS ALREADY 



THERE 



•x- WE NOW HAVE THE DISTANCE IN COLUMNS, IN THE RANGE -79 TO 79. 
•x- THE SIGN OF THE NUMBER TELLS US WHICH WAY WE'RE GOING TO GO. 
* PRESERVE THAT INFORMATION IN THE STATUS BYTE. 



CAR LEFT 



BMI 

ORAA 

ANDA 

SfAA 

BRA 

r 

ORAA 
ST A A 
NEGB 



CARJLEFT 

♦CARS TAT. BUSY 
#0FFH~CARSTAT_ 
CARS TAT, D 
CAR SETVARS 



BRANCH IF GOING LETT 
SET THE ACTIVITY BIT- 
LEFT SHOW WE'RE NOT GOING LEFT 



#CARSTAT„BUSY.OR , CARST AT JLEFT SHOW WE'RE BUSY GOING LEFT 
CARS f AT, D 

HAKE THE DISTANCE POSITIVE 



[?V 



FILE; DAISY4;pADAMP HEWLETT-PACKARD! DAISY WHEEL PRINTER <c> Coleco 1983 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon , 



Nov 1983, 15:64 



PAGE 



1? 



:T> 



O 



G 



O 






Q 






CD 

# 

O 



0307 
0307 58 
30B D75F 
030A 7F005E 
030D 8601 
030F 9750 
0311 2054 



0313 
0313 


7A005D 


0316 


264F 


0318 


8520 


031A 


2645 


031C 


8540 


031E 


2605 


0320 


BD01BF 


0323 


2003 


0325 




0325 


BD01A7 


0328 




0328 


7C005E 


032B 


7A0 0SF 


032E 


2721 



0330 


D65F 


332 


D15E 


0334 


2302 


0336 


D65E 


0338 




0333 


Cl'08 


033A 


2302 


033C 


C608 


033E 




033E 


CE0506 


0341 


3A 


0342 


E600 


0344 


D750 


0346 


0606 


0348 


53 


0349 


C40F 


034B 


DB5t> 


034D 


D75D 


034F 


2016 



914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 



* NOW WE CAN CONVERT THE DISTANCE <NOW IN THE RANGE 1 TO 79) INTO 

* STEPS BY MULTIPLYING BY 2, ALTHOUGH THE 6801 HAS A NIFTY 

* MULTIPLY INSTRUCTION, THIS CASE IS EASIER TO DO WITH A SHIFT. 



CAR„SETVARS 
LSLB 
STAB 
CLR 
LDAA 
STAA 

JCAR END BRA 



CARTOGO,D 
CARGONE 
#1 

CARTTCKS,D 
CAR Em 



CONVERT COLUMNS 10 STEPS 
SET HOW FAR WE HAVE TO GO 
SET HOW FAR WE'VE ALREADY GONE 
FAKE OUT THE TIMER 

THEN EXIT — - THINGS WILL HAPPEN NEXT TIME 



* IF WE WERE ALREADY BUSY DOING SOMETHING, WE COME HERE TO CARRY ON, 



CARRIAGE3 

DEC 

BNE 

BITA 

BNE 

BITA 

BNE 

0SR 

BRA 

GO LEFT 

JSR 

CARRIAGE4 

INC 
DEC 
BEQ 



CARTICKS DEC. THE TICK COUNTER 

CAR EHD BRANCH IF IT'S NOT TIME TO DO ANYTHING 

#CARSTAT SETTLE IS THE CARRIAGE SETTLING 

CAR DONE" BRANCH IF SO — WE'RE ALL DONE NOW 

LOOK AT THE DIRECTION BIT 

BRANCH IF IT IS LEFT 

ELSE STEP THE CARRIAGE TO THE RIGHT 



#CARSTAT LEFT 
GO LEFT 
STEP RIGHT 
CARRIAGE4 



STEP.LEFT STEP THE CARRIAGE TO THE LEFT 

CARGONE WE'VE TAKEN ANOTHER STEP 

CAR TOGO AND WE'VE GOT ONE LESS TO GO 

CAR SETTLE BRANCH IF WE'VE GOT ZERO TO GO 



* TO FIGURE HOW LONG TO WAIT BEFORE THE NEXT STEP, WE HAVE TO SEE 

* WHERE WE ARE IN OUR TRAVEL. CALCULATE THE EXPRESSION; 

* MIN( CARGONE, CARTOGO, 8 ) AND USE THE RESULT AS AN OFFSET 

* INTO THE SPEEO TABLE, THE NUMBER FROM THE TABLE BECOMES OUR 

* NEW TICK COUNT, 



LDAB 
CMPB 

BLS 
LDAB 

CARRIAGES 

CMPB 

BLS 

LDAB 

CARRIAGES 

LDX 

ABX 

LDAB 

STAB 

LDAB 

COMB 

ANDB 

ADDB 

STAB 

BRA 



CARTOGO, D 
CARGONE, I) 

CARRIAGES 
CARGONE, D 

*8 
CARRIAGES 

#8 

♦CAKSPEEDS-l 

o,x 

CAR TICK 8,0 
FUDGE 

#0FH 

CARTICKS, D 
CARTICKS, D 
CAR EHl> 



GET ONE OF THE TERMS 
COMPARE IT TO ANOTHER 
BRANCH IF THE ONE WE HAVE 
ELSE GET THE OTHER ONE 



IS SMALLER 



COMPARE IT TO THE 
BRANCH IF THE ONE 
ELSE GET THE LAST 



LAST TERM 

WE HAVE IS SMALLER 

ONE 



POINT TO THE SPEED TABLE 

ADD THE OFFSET 

GET THE TICK COUNT 

SAVE I 'f 

READ THE FUDGE PORT 

COMPLEMENT IT 

ZERO THE HIGH (WHEEL'S) NYBBLE 

ADD TO THE CALCULATED VALUE 

AND SAVE THE NEW VALUE 

AND LEAVE 



* IF WE HAVE JUST ARRIVED AT OUR DESTINATION, WE CAN SET . UP THE 



Q 
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0351 




0351 


8664 


0353 


97SD 


0355 


D65B 


0357 


D75f 


0359 


965C 


03SB 


8A20 


035D 


975C 


035F 


2006 



0361 

0361 7FO05B 

0364 7F005C 

0367 



0367 




0367 


9659 


0369 


85F0 


036B 


2616 


036D 


9650 


036F 


276A 


0371 




0371 


975A 


0373 


9607 


0375 


S4FE 


0377 


9707 


0379 


9659 


37B 


8A80 


0371) 


3301 


37F 


9759 


03B1 


20 58 



0383 

0383 7A005A 

0386 2653 



971 
972 
973 
974 
975 
976 

978 

97V 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 



TICK 
THIS 



COUNTER 
IS ALSO 



FOR THE. SETTLING TIME, AND RESET THE STATUS FLAGS. 
A HANDY TIME TO STORE THE CURRENT CARRIAGE POSITION . 



CAR^SE'TTLE 

LDAA 
STAA 
LDAB 
STAB 
LDAA 
OR A A 
STAA 
BRA 



♦CAKSETL 
CARTICKS,D 
CARRIAGE,!) 
CARPUS, D 
CAR ST AT, D 
#CARSTAT_SETTLE 
CARSTAT,D 
.CARJEND 



SET THE TICK COUNTER 

GET THE COLUMN AGAIN 
AND SAVE THAT AS UUR 
UPDATE THE STATUS 



AND EXIT 



CURRENT POSITION 



* IF WE HAVE JUST FINISHED LETTING THE CARRIAGE SETTLE, OR IF IT HAD 
x NOWHERE TO GO, WE CAN RESET EVERYTHING AND PREPARE FOR THE NEXT 

* TIME AROUND, 



CAR DONE 



CLR 
CLR 



CARRIAGE 
CARSTAT 



CLEAR THE COMMAND/STATUS BYTE 
CLEAR THE FLAGS 



CAR END 



* THEN WE GET TO THE CODE WHICH FIRES THE HAMMER AND ADVANCES THE RIBBON. 

* THE COMMAND BYTE FROM THE MAINLINE IS USED AS THE INITIAL VALUE FUR 

* THE COUNTER WHEN THE HAMMER SOLENOID IS ENERGISED. THIS WAY, THE 

* MAINLINE CAN CONTROL THE HAMMER ENERGY, THE ONLY TRICKY THING WE DO 

* IS THIS — AFTER FIRING AND RELEASING THE HAMMER WE AUTOMATICALLY 

* FIRE THE RIBBON ADVANCE SOLENOID. HOWEVER, WE RETURN THE ZERO STATUS 

* TO THE MAINLINE BEFORE ADVANCING THE RIBBON, THIS WAY, THE MAINLINE 
x CAN START MOVING THE WHEEL AND CARRIAGE AND PLATEN EVEN WHILE THE 

* RIBBON ADVANCE SOLENOID IS FIRED, WHICH IS PERFECTLY ALRIGHT, 



FIREHAMMER 

LDAA 

BITA 

BNE 

LDAA 

BEQ 



HAMSTAT,D GET OUR STATUS BYTE 

♦HAMSTAT JIFIRE . OR . HAMSTAT.HREL . OR , HAMBTAT_RFIRE . OR , HAMSTAT_RREL 



HFIRE 



STAA 

LDAA 
ANDA 
STAA 
LDAA 
ORAA 
EORA 
STAA 
BRA ' 



CONTINUE 

HAMMER, D 
END 

HAMTICKS,D 

BITS 

#B1TS HAMMER 

BITS 

HAMSTAT,D 

#HAMSTAT_HFIRE 

SHAMSTATJJDD 

HAHSTAT,0 

END 



BRANCH IF WE'RE ALREADY DOING SOMETHING 
ELSE LOOK AT THE COMMAND BYTE 
BRANCH IF NOTHING TO DO 

ELSE SET THE COUNTER FOR HAMMER FIRE TIME 
GET THE CURRENT PORT VALUE 
TURN ON THE HAMMER BIT <0 = ON) 

SHOW THE HAMMER IS FIRING 

FLIP THE EVERY-OTHER BIT 
UPDATE THE STATUS 
AND EXIT 



x ARRIVE HERE IF WE' WERE ALREADY DOING SOMETHING. DECREMENT' THL 
x TICK COUNTER TO SEE IF ANYTHING HAS TO BE CHANGED, 



CONTINUE 



DEC 
BNE 



HAMTICKS 
END 



DEC. THE TICK COUNTER 

BRANCH if NOT TIME TO DO ANYTHING 



« OK, SO WE'VE DECIDED SOME ACTION NEEDS TO BE TAKEN, 



CHECK THE 
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0388 


8580 


038 A 


260C 


038C 


8540 


038E 


261A 


0390 


8520 


0392 


262F 


0394 


8510 


0396 


263D 



0398 




0398 


8A40 


039A 


847F 


039C 


9759 


039E 


9607 


03A0 


8A01 


03A2 


9707 


03A4 


8605 


03A6 


975A 


03A8 


2031 



03AA 




03AA 


7F0058 


03AD 


8501 


03AF 


2724 


03B1 


8A20 


03B3 


84BF 


03B5 


9759 


03B7 


9607 


03B9 


84FD 


03BB 


9707 


03BD 


86 IB 


03BF 


975A 


03C1 


2018 



03C3 

03C3 8A10 
03C5 84DF 
03C7 9759 
03C9 9607 
03CB SA02 
03CD 9707 
03CF 860A 

03D1 975A 
031)3 20 06 



1020 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
10 76 
1077 
10 78 
1079 
1080 
1081 
1082 
1083 
1084 



* BITS IN HAMSTAT (CURRENTLY IN A) 70 SEE WHAT WE WERE DOING AND 
> DECIDE WHAT COMES NEXT. 

BITA #HAMSTAT HFIRE WERE WE FIRING THE HAMMER? 

BNE HREL GO TO RELEASE IX If SO 

BITA #HAM8TA1 HREL WERE WE RELEASING THE HAMMER? 

BHE RFIRE " CO TO ADVANCE THE RIBBON IF SO 

BITA #HAMSTAT RFIRE WERE WE ADVANCING THE RIBBON? 

BNE RREL " GO TO RELEASE IT IF SO 

BITA #HAMQTATJ?REL WERE WE RELEASING THE RIBBON? 

BHE DONE GO TO FINISH UP If SO 

* HERE WE RELEASE THE HAMMER SOLENOID AND RESET THE TICK COUNTER, 

HREL 

ORAA #HAMSTAT HREL SHOW OUR NEW STATUS 

ANDA #QFFH-HAMSTATJHFIRE 

ST A A HAMSTAT,D 

LDAA BITS GET THE PORT IMAGE 

ORAA #0FFH~BITS HAMMER TURN OFF THE HAMMER BIT 

STAA BITS 

LDAA *HAMREL SET THE NEW COUNTER 

STAA HAhTICKS>D 

BRA END AND EXIT 

* HERE WE CLEAR THE COMMAND/STATUS BYTE AND FIRE THE RIBBON 

* ADVANCE SOLENOID. 

RFIRE 

CLR HAMMER TELL THE MAINLINE TO CARRY ON 

BITA . #HAMSTAT_ODi> IS THIS THE TIME TO FIRE THE RIBBON? 

BEQ DONE BRANCH IF NOT 

ORAA #HAMSTAt RFIRE SHOW OUR NEW STATUS 

ANDA #0FFH~HAMBTAT HREL 

STAA HAMSTAT, D 

LDAA BITS GET THE PORT IMAGE 

ANDA #BITSJUBBON TURN ON THE RIBBON ADVANCE BIT 

STAA BITS 

LDAA #RIBFIRE SET THE NEW COUNTER 

STAA HAMTICKS,» 

BRA END AND EXIT 

x IN THIS SECTION WE RELEASE THE RIBBON ADVANCE SOLENOID. 

RREL 



ORAA 
ANDA 
SI A A' 
LDAA 

ORAA 
STAA 

LDAA 

STAA 
BRA 



#HAMSTAT RREL SHOW OUR NEW STATUS 

#0FFH~HAMS I " AT J3FIRE 

HAMSTAT, D 

BUB GET THE PORT IMAGE 

#0FFH-B1T£> RIBBON TURN OFF THE RIBBON ADVANCE BIT 

bi rs 

#IUBREL SET THE NEW COUNTER 



HAMTICKS ; D 
EHi> 



AND EXIT 
* IF WE ARE DONE ALL PHASES OF THIS THING; WE COME HERE TO 
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03D5 

03D5 9659 
Q3V7 8401 
031)9 9759 
03DB 



03DB 




G3DB 


964F 


03DD 


2610 


G3DF 


964E 


03E1 


273C 


03E3 


8680 


03E5 


974F 


03E7 


CC12CQ 


03EA 


FD0051 


G3ED 


2030 


03EF 




Q3EF 


8580 


03F1 


260E 


03F3 


8540 


Q3F5 


262A 


03F7 


8520 


03F9 


2650 


03FB 


8510 


03FD 


2661 


3FF 


20IE 



0401 




0401 


FC0051 


0404 


830001 


0407 


FD0051 


040A 


2765 


040C 


BD0486 


040F 


9607 


0411 


8520 


0413 


2656 


0415 


8640 


0417 


974F 


0419 


CC12C0 


041C 


FD0051 


041F 





1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 



■x- CLEAR OUR STATUS BYTE. 



DONE 



END 



LDAA 
ANDA 
STAA 



HAMS'! AT, D 
#HAMSTAT_ODD 
HAMS'! AT ,5 



7 URN OFF THE OLD STATUS BITS 



* Then we get to this code which controls the linefeed Mechanise. 

* If the contents of PLATEN is non-zero, it Means we have to do 
x sofie linefeeds. This routine uses PLATS'! AT to renenber its 

-x- internal states between execution tiwes. 

* THIS VERSION RUNS THE MOTOR FORWARD UNTIL THE SENSE SWITCH CLOSES, 

* RUNS UNTIL THE SWITCH OPENS, BRAKES FUR 255 TICKS, THEN IDLES, 



PLATPOS 

LDAA 
BNE 
LDAA 
BEQ 

LDAA 

STAA 

LDD 

STD 

BRA 

PL CONTINUE 
B1TA 
BHE 
B1TA 
BNE 
BITA 
BNE 
BITA 
BNE 
BRA 



PLATSTAT, » 
PL CONTINUE 
PLATEN, D 
PLJ£ND_ISLE 

♦PLATSTAT RUN1 
PLATSTAT, D 
♦PL TIMEOUT 
FIREPROOF 
PL END ISLE 



GET OUR STATUS BYTE 

BRANCH IF WE'RE ALREADY DOING SOMETHING 

ELSE LOOK AT THE COMMAND BYTE 

BRANCH IF NOTHING TO DO 

SET THE STATUS BYTE TO RUN MODE 



INIT FOR 2 SEC, 
FOR MOTOR RUN 
AND LEAVE 



TIMEOUT 



IS THE MOTOR RUNNING UNTIL CLOSURE? 

BRANCH IF SO 

ARE WE LETTING THE SWITCH OPEN? 

BRANCH IF SO 

IS THE MOTOR STOPPING? 

BRANCH IF SO 
♦PLATSTAT SETTLE IS 1HE MOTOR SETTLING? 
PL SETTLE BRANCH IF SO 
PL END ISLE THIS SHOULD NEVER RUN 



♦PLATSTAT RUN1 
PL RUN1 

♦PLATSTAT RUN2 
PL„RUN2 
♦PLATSTAT STOP 
PL STOP 



•x THIS PART RUNS THE MOTOR UNTIL THE SENSE INPUT GOES LOW (SWITCH CLOSES) 

* WE USE THE 3 LOWEST BITS OF PLATSTAT AS A COUNTER TO . 

•x DETERMINE WHEN TO TURN ON AND OFF THE MOTOR AS WE RUN IT 

* IN PULSED MODE, 

PL RUN1 



PL END 



LDD 


FIRE PROOF 


HAVE WE DIED YET? 


SUBD 


*'l 




STD 


FIRE PROOF 




BEQ k 


WE DIED 


GO AWAY 


JSR 


PULSE^MUTOR 


RUN THE MOTOR IN PULSED M 


LDAA 


&i IS 


LOOK AT THE SENSE BIT 


BITA 


♦BITS DETENT 




BNE 


PL^END 


BRANCH IF IT'S STILL OPEN 


LDAA 


♦PLATSTAT RUN2 


• ELSE GO TO RUN2 MODE 


STAA 


PLATS TAT, 5 




LDD 


♦PL TIMEOUT 




SID 


FIREJ :> ROOF 


RESET COUNTER FOR RUNS 


ISLE 
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'AGE 



21 



041F 204A 



0431 




0431 


FC0051 


0434 


.8300 01 


0437 


FD0O51 


043A 


3745 


043C 


BD0486 


U43F 


9607 


0431 


8530 


0433 


3736 


0435 


9607 


043? 


8A04 


043? 


9707 


043B 


01 


043C 


01 


0430 


84F7 


043F 


9707 


0441 


8671) 


0443 


9750 


0445 


8630 


0447 


974F 


0449 


3030 


044B 




044B 


7A0050 


044E 


361 B 


0450 


9607 


0453 


8A0C 


0454 


9707 


0456 


8601 


0458 


9750 


045A 


8610 


045C 


974F 


045E 


300B 


0460 




0460 


7A0 050 


0463 


3606 


0465 


7F004F 


0468 


7A004E 



046B 



046B OF 
046C 8608 
046E 9708 
047 3B 



1143 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1153 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1163 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1173 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1183 
1183 
1184 
1185 
1186 
1187 
1188 
1 1 8V 
1190 
1191 
1193 
1193 
1194 
1195 
1196 
1197 
1193 



BRA 



PL END 



AND LEAVE 



THIS FART CONTINUES TO RUN THE HOTOR UNTIL THE SWITCH CLOSES 
AGAIN, 



*x 

PL RUN3 



LDD 

SUED 

SID 

BEQ 

JSR 

LDAA 

BITA 

BEQ 

LDAA 

ORAA 

STAA 

NOP 

NOP 

ANDA 

STAA 

LDAA 

STAA 

LDAA 

STAA 

BRA 

PL STOP 

DEC 

BNE 

LDAA 

ORAA 

STAA 

LDAA 

STAA 

LDAA 

STAA 

BRA 

PL.SETTLE 

DEC 
BNE 
CLR 
DEC 

PL END 



FIRE PROOF 

#1 

FIREPROOF 

WE DIED 

PULSE„HOTOR 

BITS 

♦BITS DETENT 

PL END 

BITS 

♦0FFH-BITS LF 

BITS 



HAVE WE DIED YET? 



GO AWAY 

RUN THE HOTOR 

READ THE REGISTER 

LOOK AT THE SWITCH 

BRANCH IF SWITCH IS STILL CLOSED 

ELSE BRAKE THE HOTOR 

<TURN OFF THE DRIVE TRANSISTOR 
FIRST AND LET If REST) 



♦BITS^BRAKE 

BITS 

#PL BRAKE COUNT SET THE TICK COUNT 

PLATTICKS, D 

♦PLATS TAT^STUP GO TO STOP HODE 

PLATSTAT, D 

PL EHT> 



PLATTICKS COUNT DOWN THE REVERSE T1HE 

PL END LEAVE IF MORE TO DO 

BITS ELSE TURN OFF THE HOTOR 

♦ <0FFH"-BirS w .BRAKE),OR. ( 0FFH-BIT8„LF> 

BITS 

♦PL SETTLE COUNT SET THE TICK COUNT 

PLATTICKS, 5 

♦PLATSTAT^SETTLE GO TO SETTLE HODE 

PLATSTAT, D 

PL END 



PLATTICKS 

PL w END 

PLATSTAT 

PLATEN 



COUNT DOWN THE REVERSE TIHE 
LEAVE IF MORE TO DO 
ELSE SHOW WE'RE DUNE 
ONE LINEFEED FINISHED 



X- -X- X- X- X- X- X- X- X- X- X * X X X X X X X X X X X X X X X- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x THIS IS THE CLEANUP At THE END OF THE INTERRUPT' ROUTINE. 



SEI 
LDAA 
ST AA 
RTI 



#TCSR. 
TCSR 



EOCI 



DISABLE INTERRUPTS HERE 
RE-EN^BLE TIMER INTERRUPTS 



X X X X- X X X X X X X X X X X X X X X X X X X X X X # X- X X X X X X X X X X X X X X- X X X X X X X X X X X X X- X X X X X X X X X X X 

x IF WE GUT H£\<£> THE LF HOTOR flHEDUUt© KILL ALL INTERRUPTS, 



x TURN OFF MOTORS,- AND GO TU SLEEP 



o 



G 
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PAGE 



0471 




0471 


OF 


0472 


8600 


0474 


9708 


0476 


8604 


0478 


9710 


047A 


860A 


047C 


9711 


47E 


9607 


0480 


8A0C 


0482 


9707 


0484 




0484 


20FE 



0486 




0486 


7C0 050 


0489 


9650 


048B 


8407 


0480 


8106 


048F 


2507 


0491 




0491 


9607 


0493 


8A0C 


0495 


9707 


0497 


39 


0498 




0498 


9607 


049A 


8A08 


049C 


84FB 


049E 


9707 


04A0 


39 



1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1 246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 



WE DIED 



INFJ.OGP 
x 

X 



SEI 

LDAA 
STAA 
U)AA 
STAA 
LDAA 
STAA 
L0AA 
OR A A 
STAA 

BRA 



#0 

TCSR DISABLE TIMER INTERRUPTS 

#RMUR CCO CONFIGURE SCI — NO INTERRUPTS 

RMCR " SET BAUD RATE AND MODE 

♦TRCSRJTE.OR . TRCSR_RE 

TRCSR 

BITS TURN OFF THE LINEFEED MOTOR 

#<0FFH-BITS BRAKE) .OR. < OFF H-BITS„LF > 

BITS 



INF LOOP 



EVEN THOUGH WE HAVE ALL INTERRUPTS 
DISABLED, MAKE SURE WE NEVER COME 
BACK 



XXX XXXX X XXXX XX* X X* * ** XX XXX XX XX XXXXXXXXXXXX X X X XXX XXXX XX XXX X XX XXX X XX 

x THIS ROUTINE RUNS THE PLATEN MOTOR IN PULSED DRIVE MODE, 
x IT INCREMENTS PLATTICKS AND USES THE BOTTOM THREE BITS 
x TO DETERMINE WHETHER THE MOTOR SHOULD BE ON OR OFF, 



PULSE MOTOR 
INC 
LDAA 
ANDA 
CMPA 
BLO 

PL„RUN„OFF 

LDAA 
ORAA 
STAA 
RTS 

PL RUN ON 

LDAA 
ORAA 
ANDA 
S t'AA 
RTS 

IF 



INC THE PULSE COUNTER 

GET THE COUNT- 

LOOK ONLY AT THE BOTTOM 3 BITS 

COMPARE IT TO OUR BPEEX> THRESHOLD 

BRANCH IF THE MOTOR SHOULD BE ON 



PLATTICKS 
PLATTICKS ,0 
♦00000111B 
♦PL SPEE0 
PLj?UNJ3N 

BITS TURN OFF THE MOTOR 

*<0FFH-BITSJ&RAKE>,OR.<0FFH-BIT8„LF> 

BITS 



BITS TURN ON THE MOTOR 

♦0FFH-BITS BRAKE (MAKE SURE BRAKE IS OFF) 
♦BITS LF 
BIT'S 



SHANNON 



X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x THIS IS THE STRING TO BE PRINTED IN SELF-fEBf MODE. 



STRING 



FCC 'The head and in frontal attack on english writer ' 

fCB ' LF >SQ 

FCC 'rehtona erofereht si tniop siht fo retcarahc eht taht' 

FUB CR,LF 

FCC Method for the letters that the tiwe of whoever told 

FCB LF,SO 

FCC 'la trior f ni dna da^h ehl , detcepxenu na rof Me lb or p eht' 

FCB CR,LF 

FCC 'attack on english writer that the character of ' 

\-'CB LF ; SO 

i- CC ' t a h t sr e 1 1 e 1 eht rof d o h t en r eh t o n a erofereht si tniop siht' 



o 



© 
© 
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PAGE 



04A1 
04A1 
04A2 
04A? 
04AB 
04A9 
0"4AE 
04B3 
04B8 
04BD 
04C2 
04C7 
04CC 
04D1 
04D6 
04DB 
04E0 
04E1 
04E5 
04EA 
4EF 
04F4 
04F9 
04FE 
0503 
0504 



IB 

2122232425 

26 

27 

28292A2B2C 

2D2E2F3031 

3233343536 

3738393A3B 

3C3D3E3F40 

4142434445 

464748494A 

4B4C4D4E4F 

5051525354 

55565*75859 

5A5B5C5D5E 

5F 

0A0B0E7F 

7E7D7C7B7A 

7978777675 

7473727170 

6F6E6D6C6B 

6A69686766 

6564636261 

60 

0DOAOA 

<0507> 



0507 

0507 47 

0508 32 



1256 
1257 
1230 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
127 
1271 
1272 
1273 
1274 
1275 
1276 

1277 
1278 



1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
128? 
1290 
1291 
1292 
1293 
1294 



SOURCE LINE 

FCB 
FCC 
FCB 
FCC 
FOB 
FCC 
FCB 
FCC 
FCB 
FCC 
FCB 
STRING_END EQU 

ELSE 



CR,LF 

'the tine of whoever told the problem for an unexpected.' 

LF,SO 

' taht retirw hsilgne no kcatta latnorf ni dna daeh ehT' 

CR,LF 

'the character of this point is therefore another Method' 

LF,SO 

' -orp eht dlot reveohw fo ewit eht taht srettel eht rof 

CR,LF 

'blew for an unexpected,' 

CR,LF 

* 



* * -X- X * * X* X ******* * * * * * * * * * x * * * * * * * * * ********** * X * * * * * * * X X * X * * * * * * X X X X X X X X 

* THIS IS THE STRING TO BE PRINTED IN SELF-TEST HODE. 



STRING 



FCB 
FCC 

FCC 
FCC 



ESC 



■<)*+>-. /0t 23456789 t ; <«>?8ABCDEFGH1JKLMN0PQRSTUMWXYZ[\:! A „' 



1279 

1280 



FCB 

FCC 



LF,BS,SO,DEL 

11 " 3 1 Czy xwvutsrqponfilk jihgfedcha N ' 



FCB CR,LF,LF 
STRING„END EQU $ 

ENDIF 

* X * * X * * * X X X- * * X X * * * X X X * X X X * X X * X X X X X X X X * X X X * X * X * X X * * X * X -X X- * * X X * X X X * * X * X * * X 

* THIS TABLE IS USED TO CALCULATE CARRIAGE MOTOR STEPPING TIMES, 

x THE FIRST EN'IRIES ARE USED FOR SLOWER SPEED, AS THE CARRIAGE LEAVES 
x- IVS STARTING POINT AND NEARS ITS DESTINATION, 

* TOP SPEED USED DURING MUSI OF THE TRANS 11 , 



THE LAST ENTRY IS 



CARSPEEDS 

FCB 
FCB 



CARSPD1 
CARSPD2 



u 



© 
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050? 
050A 

050B 
050C 
050D 
050E 



0517 
0517 
051C 
Q51F 
0*524 
0527 
052C 
052F 
0534 
0537 
053C 
053F 
0544 
0547 
054C 
054F 
0554 
0557 
055C 
055F 
0564 
0567 
056C 
056F 
0574 



2? 

23 

20 

ID 
IB 
1? 



050F 




050F 


15 


0510 


12 


0511 


OF 


0512 


OD 


0513 


OB 


0514 


09 


0515 


OB 


0516 


07 



0244462E2C 

2F4536 

3C3A3B2D03 

2B0542 

2521222324 

262728 

292AGC1F39 

303241 

3EOBG80A16 

OF0918 

11141D1C15 

061312 

1A1B0DOE1Q 

171E04 

201907353F 

3340 37 

38544E4P4C 

53S94A 

5755485D4D 

475250 

5A5C515856 

5B490 

4B5E5F313B 

433401 



1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
13 04 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 

1329 

1330 

1331 

1332 
1333 
1334 
1335 
1336 
1 337 
1338 
1339 



FCB 
FOB 

FOB 
FCB 
FCB 
FCB 



CARSPD3 
CARSPD4 

CARSPD5 
CARSPD6 
CARSPD7 
CARSPD8 



X X 'X- * -X- X X- X- -X X X X * X- -X- X X- X X X X X X X X X X X X X X X X X X X X X* X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

* THIS TABLE IS USED TO CALCULATE WHEEL MOTOR STEPPING TINES, 
x THE FIRST ENTRIES ARE USED FOR SLOWER SPEED, AS THE WHEEL LEAVES 
x ITS STARTING POINT AND NEARS ITS DESTINATION, THE LAST ENTRY IS 
x TOP SPEED USED DURING HOST OF THE TRANSIT. 



WHEELSPEEDS 
FCB 
FCB 
FCB 
FCB 
FCB 
FCB 
fCB 
FCB 



WHSPD1 
WHSPD2 
WHSPD3 
WHSPD4 
UHSPD5 
WHSPD6 
WHSPD7 
WHSPD8 



X X X X X X X X XXX X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

* THIS TABLE RELATES ASCII CHARACTERS TO THEIR POSITIONS UN THE PRINT 
x WHEEL, THE DATA APPLIES TO 96-CHARACTER PLASTIC WHEELS, TO USE THE 

* TABLE, CALCULATE AN OFFSET WHICH IS CHAR) - 020, HAND THE BYTE THERE 

* IS THE SPOKE NUMBER WHERE THAI CHAR CAN BE FOUND, ALTHOUGH THE SPOKE 

* FOR ASCII SPACE IS NOT NORMALLY PRINTED, IT IS INCLUDED HERE BECAUSE A 
x SPECIAL CODE CAN BE USED TO ACCESS IT, VALID CHARACTERS ARE IN THE 

x* RANGE 020HTO 07F . H 



SPOKES 



FCB 



2,69,70,46,44,47,69,54 



to 



FCB 60,58,61,45,3,43,5,66 ( to / 

FCB 37,33,34,35,36,38,39,40 to 7 

FCB 41,42,12,31,57,48,50,65 8 to 

FCB 62,11,8,10,22,15,9,24 & to G 

FCB 17,20,29,28,21,6,19,18 H to O 

FCB 26,27,13,14,16,23,30,4 P to W 

FCB * 32,25,7,53,63,51,64,55 X to 

FCB 56,84,78,79,76,83,89,74 * to g 

FCB 87,85,72,93,77,71,82,80 h t '? o 

FCB 90,92,81,88,86,91,73,0 p to w 

FCB 75,94,95,49,59,67,52,1 x to DEL) 



o 






CD 



■^ 



O 



o 



FILE; DAISY4;pADAHP HEWLETT -PACKARD \ DAISY WHEEL PRINTER <c) Coleco 1983 Confidential Hon, 7 Nov 1983, 15:57 PACE 



^' LOCATION OBJECT CODE LINE SOURCE LINE 



1340 

1341 x x -x- x- X * X- * * -X* X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X- X X X X X X X X X X X X X X X X X X X X 

1342 -x- THIS TABLE CIUES THE. HAMMER ENERGY FVtt EACH PRINTABLE CHARACTER. 

1343 x- TO USE IT, CALCULATE AN OFF-SET WHICH IS CHAR) - 020, HAND 

1344 x THE BYTE THERE IS THE HAMMER ENERGY FOR THAT CHARACTER. VALID 

1345 * CHARACTERS ARE IN THE RANGE G20mU 07F.H 
1346 

0577 1347 ENERGIES 

0577 0706060707 1348 FCB E3,E2,E2,E3,E3,E3, E3,E1 to ' 

057C 070705 

057F 0606070605 134? FCB E2,E2, E3,E2,E1 ,E1 ,E1 ,E2 < to / 

0584 050506 

0587 0706070607 1350 FCB E3,E2, E3,E2,E3,E3,E3,E2 to 7 

058C 070706 

058F 0707050606 1351 FCB E3,E3,E1 ,E2,E2, E3,E2,E2 8 to 

0594 070606 

0597 0807080708 1352 FCB E4,E3,E4,E3,E4 ,E4,E4,E4 8 to G 

059C 080808 

059F 0806070808 1353 FCB E4,E2,E3,E4,E4,E4,E4,E3 H to O 

05A4 080807 ' 

05A7 0808080707 1354 FCB E4,E4,E4,£3,E3,E4,E4,E4 P to W 

05AC 080808 

05AF 0808070606 1355 FCB E4,E4,E3,E2,E2,E2,E1 ,E2 X to _ 

05B4 060506 

05B7 0506080607 1356 FCB El ,E2,E4,E2,E3,E2,E3,E4 % to g 

05BC 060708 

05BF 0706070706 1357 FCB E3,E2,E3,E3,E2,E4,E3,E3 h to o 

05C4 080707 

05C7 0808060706 1358 FCB E4,E4,E2,E3,E2,E3,E2,E3 p to w 

05CC 070607 

05CF 0708070606 1359 FCB . E3,E4,E3,E2,E2,E2,E1 ,E1 x to DEL) 

05D4 060505 

1360 

1361 

1362 -x X X X X X X X X X X X X X X X X X X x- X X X X X X X X X X X X X X X X X XXX X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

1363 x- This is a null interrupt routine that we can aiM the unused interrupt 

1364 x vectors at. It should never be executed, but better to have it than 

1365 x- to have the machine hang, . . 
1366 

05D7 1367 NULL 

05D7 3B 1368 RTI 

1369 

1 3 7 x X X X X X X X X X X X X X X X X X X X X X X X x- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

1371 x- THESE ARE THE UECTURS FOR THE 6801, HANY ARE UNUSED 1H THIS SOFTWARE, 

1372 x SO THEY JUST POIN1 TO A NULL INTERRUPT ROUTINE. 
1373 
1374 
1375 

FFF0 0000 1376 FDB PR MAC SCI INTERRUPT 



G 1377 



IF 


1 -SHANNON 


ORG ' 


0FFF0H 


FDB 


PR„HAC 


END IF 




ORG 


0FFF4H 


FOB 


INT„LOUP 


ORG 


0FFFEH 


FOB 


RESET 



1378 
FFF4 0236 1379 FOB INT„LOUP TIMER COMPARE 

1380 
F F F E 13 8 1 F DB R E S E T R E S E T 

1382 

1383 



© 
© 

O 

© 
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Errors- ■ • 



o 






© 



■•"Tn 



© 



(7} 



w 



(J 



O 



FILE; DAISY4:pADAMP 
LINE* SYMBOL 



GROSS REFERENCE TABLE 
TYPE REFERENCES 



PAGE 27 



521 


AWAIT CHAR 


P 


523 


416 


BACKSPACE 


P 


381 


99 


BITS 


A 


258,269,552,562,642,655,1011,1013 
1 21 , 1 228 , 1 230 , 1 233 , 1 236 


104 


BITS BRAKE 


A 


1160,1172,1209,1229,1234 


102 


BITS DETENT 


A 


1135,1153 


107 


BITS HAMMER 


A 


1012,1047 


103 


BITSJ.EFT 


A 


553,563 


105 


BITS LF 


A 


1 1 56 , 1 1 72 , 1 209 , 1 229 , 1 235 


106 


BITSJUB60N 


A 


1064,1077 


101 


BITS SPOKES 


A 


643,656 


100 


BITS TEST 


A 


270 


170 


BS 


A 


380 


119 


BUFFER 


D 




115 


BUFFER COUNT 


D 


318,339,488,490 


113 


buffeOointer 





336,368,484,486 


151 


CARGQNE 


D 


921,940,951,953 


545 


CAR HOME 


P 


296,532,554 


55? 


CARHOHE2 


P 


564 


153 


CARPOS 


D 


569,897,978 


145 


CARRIAGE 


D 


457,460,463,503,506,889,977,989 


928 


CARRIAGES 


P 


888 


939 


CARRIAGE4 


P 


936 


954 


CARRIAGES 


P 


952 


958 


CARRIAGE6 


P 


956 


196 


CARSETL 


A 


975 


197 


CARSPD1 


A 


623,1293 


198 


CARSP02 


A 


1294 


199 


CARSPD3 


A 


1295 


200 


CARSPD4 


A 


1296 


201 


CARSPD5 


A 


1297 


202 


CARSPD6 


A 


1298 


203 


CARSPB7 


A 


1299 


204 


CARSP08 


A 


1300 


1292 


CAR SPEEDS 


P 


959 


146 


CARS f AT 


D 


886,907,911,979,981,990 


147 


CARSTAT^BUSY 


A 


887,905,910 


148 


CARSTAT LEFT 


A 


906,910,933 


149 


CARSTAT SETTLE 


A 


931,980 


150 


CAR TICKS 





923,929,962,966,967,976 


152 


CARTOGO 


D 


153,920,941,950 


621 


CAR DELAY 


P 


551,561 


625 


CAR DELAY2 


P 


628 


988 


CAR__0ONE 


P 


898,932 


991 


CAR END 


P 


924,930,968,982 


909 


CARJ-EFT 


P 


904 


974 


CAR SETTLE 


P 


942 


9\B 


CAR bETVARS 


P 


908 


243 


CLEAR MEM 


P 


247 


160 


CLOCK 





161,509,513,740,743 


1023 


CONTINUE 


P 


1006 




GOPYJBUFFER 


P 


325 


173 


CR 


A 


376 , 1 248 , 1 252 , 1 256 ,1260,1 264 , 1 266 


793 


CW 


P 


788 


56 


DDR1 


A 


255 


57 


DDR2 


A 


264 


60 


DDR 3 


A 





© 
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CROSS REFERENCE TABLE 
TYPE REFERENCES 



PAGE 



61 


DDR4 


A 


260 


739 


DEC^CLOCK 


P 




744 


DEC" CLOCK END 


P 


741 


178 


DEL 


A 




786 


DIR 


P 


775,777,780 


1087 


DONE 


P 


1038,1059 


219 


El 


A 


1348,1349,1349 


218 


E2 


A 


1348,1348,1349 

1357,1357,1358 


217 


E3 


A 


1348,1348,1348 
1356,1356,1357 


216 


E4 


A 


1352,1352,1352 
1357,1358,1358 


1091 


END 


P 


1008,1018,1025 


1347 


ENERGIES 


P 


468 


176 


ESC 


A 


382 


448 


ESCAPE 


P 


383 


1003 


FIREHAMMER 


P 




127 


FIRE PROOF 


D 


1109,1129,1131 


461 


FIRE~WAIT1* 


P 


466 


475 


FIRE~WArT2 


P 


477 


393 


FORWARD 


P 


389 


97 


FUDGE 


A 


845,963 


420 


GOLEFT 


P 


408 


409 


GORICHT 


P 


419 


529 


GOT CHAR 


P 




819 


GO CW 


P 


816 


937 


GO^LEFT 


P 


934 


441 


HALF_LINEFEED 


P 


387,444 


137 


HAMMER 





473,476,1007,1 


220 


HAHREL 


A 


1049 


138 


HAMSTAT 


D 


1004,1014,1017 


139 


HAM8TAT HFIRE 


A 


1005,1015,1031 


140 


HAMSTAT HREL 


A 


1005,1033,1043 


143 


HAMSTA IJJDD 


A 


1016,1058,1089 


141 


HAMSTAT RFIRE 


A 


1005,1035,1060 


142 


HAMBIATJ3REL 


A 


1005,1037,1073 


144 


HAMTICKS 


D 


1010,1024,1050 


1009 


HFIRE 


P 




158 


HOME IMAGE 


D 


301,534 


181 


HOMEJ3PUKE 


A 


661 


294 


home~things 


P 


284 


1042 


HREL 


P 


1032 


75 


ICR 


A 




157 


IMAGE 


D 


252,300,530,53! 


483 


INC 


P 


391,397,403,41; 


1211 


INF LOOP 


P 


1212 


728 


INT LOOP 


P 


1379 


390 


INVALID 


P 


370 


924 


JCARJEND 


P 


890 


494 


JMAIN 


P 


504,512,537 




JNO_CHAR 


P 


333 


806 


JUH.END 


P 


755 


171 


LF 


A 


378,1246,1248, 


435 


LINEFEED 


P 


379,438 


316 


MAIN 


P 


494 


330 


MAKE CHARS 


P 





,1349,1351 ,1355,1356,1359,1359 

, 1 349 , 1 349 , 1 349 , 1 350 , 1 350 , 1 350 , 1 351 , 1 351 , 1 351 , 1 351 , 

, 1 358 , 1 358 , 1 359 , 1 359 , 1 359 

,1348,1348,1349,1350,1350,1350,1350,1350,1351,1351 , 

,1357,1357,1357,1357,1358,1358,1358,1359,1359 

,1352,1352,1352,1353,1353,1353,1353,1353,1354,1354, 

,1359 

,1051,1068,1082 



,1140,1147,1149 



1 353, 1 355 , 
1351 ,1352, 
1354,1354, 



1355,1355, 
1352,1353/ 
1354, 1354, 



1355, 
1353, 
1355, 



1356,1356, 
1354,1354, 
1355,1356, 



1356 
1355 
1356 



057 

,1045,1062,1075,1088,1090 

,1044 

,1061 

,1074 

,1067,1081 



5,579,588,591,601,610,613,672,681,684,694,703,706 
2,414,423,425,433,446,454 



1250,1252,1254,1256,1258,1260,1262,1264,1266 



<&•■ 
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FILE: DAISY4:pADAMP CROSS REFERENCE TABLE 

LINE* SYMBUL TYPE REFERENCES 



PACE 



D 



154 MODE D 
156 MODE_REVERSE A 

155 HODE TEST A 
95 MOTORS A 

191 MSEC11 A 

192 MSEC1S A 
331 H__LEN E 
231 M_SIG E 
778 NEC P 
231 NET_INJBUFF E 
286 NOT SELF TEST P 
502 NO CHAR ~ P 

1367 NULL P 

74 OCR A 

76 P3CSR A 

159 PHANTOM D 

120 PLATEN D 
1100 PLATPOS P 

121 PLATSTAT X> 

122 PLATSTAT RUN1 A 

123 PLATSTAT_RUN2 A 

125 PLATSTAT_SETTLE A 

124 PLATSTAT STOP A 

126 PLATTICKS »' 
180 PLWIDTH A 

226 PL BRAKE_COUNT A 
1112 PL~C0NT1NUE P 
1186 PL.END P 
1141 PL„END ISLE P 
1128 PL_RUN1 P 
1146 PL RUN2 P 
1227 PL_RUNJ3FF P 
1232 PL RUN__ON P 
1180 PL SETTLE P 

227 PL SETTLE COUNT A 
225 PL SPEED A 

1168 PL„STOP P 

228 PL.riMEOUT A 

58 PORT1 A 

59 PORTS A 

62 P0RT3 A 

63 P0RT4 A 
885 POSCAR P 
750 POSWHEEL P 
451 PRINTABLE P 
456 PRINTABLE1 P 
367 PRINTJ3NE P 
231 PR_MAC E 

1221 PULSE__MOTCR P 

93 RAHCR A 

91 RDATA A 

241 RESET P 

427 RETURN P 

399 REVERSE P 

1056 RFIRE P 

222 RIBFIRE A 

223 RIBREL A 



275,331,394,396,40 0,402,406,417,428,430 

395,401,407,418,429 

274 332 

253*517,531,536,592,614,685,7 07 

222 

716 

324,511 ,522 
773 

27.1 



306,732 

298,410,413,421,424,432,452,459,505 
302,436,439,442,445,464,1103,1184 

1101,1107,1138,1165,1177,1183 

1106,1113 

1115,1137 

1119,1176 

1117,1164 

1163,1169,1175,1181,1222,1223 

411,453 

1162 

1102 

1136,1142,1154,1166,1170,1178,1182 

1104,1110,1121 

1114 

1116 

1226 

1120 

1174 

1225 

1118 

1108,1139 

95 



97 
99 



373 

458 

322 

1376 

1133,1151 



1381 

377 

385 

1034 

1066 

1 079 



o 
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CROSS REFERENCE TABLE 



PAGE 30 



? 


LINE* 


SYMBOL 


TYPE 


REFERENCES 




|\ 


77 


RMCR 


A 


378,388,1305 




I) 


79 


RMCR CCO 


A 


377,387,1304 






78 


RHCR CC1 


A 








81 


RHCR SSO 


A 






3 


80 


rmcrjsbi 


A 








671 


ROT CCW 


P 


640,653,817 




y 


693 


ROT„CW 


P 


830 






1073 


RREL 


P 


1036 






16 


SHANNON 


A 


114,163,330,268,317,333,337,487,496,1339, 


1374 




175 


SI 


A 


388 




\ 


174 


SO 


A 


384,1246,1350,1354,1358,1363 






374 


SOME 3 


P 


372 






t77 


SP 


A 


371,449,470,759,863 






405 


SPACE 


P 


375,478 






1337 


SPOKES 


P 


759,863 






113 


STACK 


D 


249 




) 


111 


STACKSPACE 


D 








578 


STEP LEFT 


P 


560,938 






600 


STEPJUGHT 


P 


550,935 




} 


1344 


STRING 


P 


335,338 






1367 


STRING END 


P 


338 






64 


TCSR 


A 


382,293,308,729,733,1193,1203 




"> 


68 


TCSR EICI 


A 








69 


TCSR~EOCI 


A 


307,1192 






70 


TCSR ETOI 


A 






) 


65 


TCSR ICF 


A 








71 


TCSR IEDG 


A 








66 


TCSR^ttCF 


A 






) 


73 


TCSR OLVL 


A 








67 


TCSR rOF 


A 








93 


TDATA 


A 






) 


190 


TICK 


A 


305,623,716,731 






510 


TIMEOUT 


P 


514 






73 


TIMER 


A 


304,622,626,715,719,730 




^ 
J 


83 


TRCSR 


A 


280,290,1207 






84 


TRCSRJJRFE 


A 








83 


TRCSRJWRF 


A 






s 


B7 


TRCSR RE 
TRCSR RIE 


A 


279,289,1306 






86 


A 


289 






85 


TRCSR „TDRE 


A 






) 


89 


TRCSR TE 


A 


279,289,1206 






88 


TRCSR_TIE 


A 








90 


TRCSR JdU 


A 






J 


173 


VT 


A 


386 






161 


WANT TIMER 


D 


£24, 637, 717, 720 






130 


WEjDIEi) 


P 


'■■ 132,1150 




3 


138 


WHEEL 


D 


455,462,754,863,877 






653 


WHEEL2 


P 


657 






810 


WHEEL3 


P 


753 




j 


831 


WHEEL4 


P 


818 






836 


WHEELS 


P 


834 






840 


WHEEL6 


P 


838 




) 


134 


WHEELGQNE 


D 


803,822,833,835 






636 


WHEELHUME 


P 


299,533,644 






136 


WHEELPOS 


D 


662,763,866 




1 


1308 


WHEELSPEEDS 


P 


841 




) 


133 


WHEELT1CKS 


D 


805,811, 844 , 851 , 853 , 86 1 





© 



o 

© 

© 
© 
O 
© 

© 
© 
© 
© 

o 

© 
© 
© 

o 
© 



FILE: »AISY4:pA0AMP 
LINE* SYMBOL 



135 


WHEELTOGO 





772 


WHEELXX 


p 


714 


WHEEL DELAY 


p 


718 


WHEEL DELAY2 


p 


206 


WHSETL 


A 


207 


WHSPD1 


A 


208 


WHSPD2 


A 


20? 


WHSPD3 


A 


210 


WHSP04 


A 


211 


WHSPD5 


A 


212 


WHSPP6 


A 


213 


WHSPD7 


A 


214 


WHSPD8 


A 


12? 


WHSTAT 


D 


130 


WHSTAT BUSY 


A 


131 


WHSTAT CW 


A 


132 


whstat"settle 


A 


876 


WH DONE 


P 


879 


WHJEND 


P 


859 


WH SETTLE 


P 


801 


wh'setuars 


P 



CROSS REFERENCE TABLE 

TYPE REFERENCES 

136,802,823,832 

764 

641,654 

721 

860 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

751 ,791,795,867,869,878 

752,789,794 

790,794,815 

813,868 

765,814 

806,812,853,870 

824 

792 
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PAGE 



D 



^ 



^ 



r* 



T% 






3 
O 





1 

2 


A 6801* 










3 
4 
5 


; external routines 


referenced 






\ 


EXT 


MPR.TR TRANS 






6 

7 




EXT 


HPRJI'RlrCU 






8 
9 


> 

j global data 


areas 


defined 






10 


? 










11 




GLB 


CURRENT STATE 




12 




GL8 


NEr_IN„BUFF 






13 


) 










14 

15 
16 


; external data areas used 






> 


EXT 


M_S1G,M_LEN 






17 










<0002> 


18 
19 
20 


NUDE_ADDR 
> 


EQU 


2 






21 

22 


> message scenarios 


equates 




<0002> 


23 


MN„RESET 


EQU 


0Q0H*16+NODE„ADDR 


<0012> 


24 


MN STATUS 


EQU 


0QlH*16+NODE 


ADDR 


<0022> 


25 


MN ACK 


EQU 


G02HX16+NODE" ADDR 


<0032> 


26 


MN_CLR 


EQU 


03H*16+NUD£. 


.ADDR 


<0042> 


27 


MN RECEIVE 


EQU 


GU4H*16+N0DE ADDR 


<0052> 


28 


MN„CANCEL 


EQU 


005R*16+NOD£ 


ADDR 


<0062> 


29 


MN„SEND 


EQU 


006H*16+NODE. 


.ADDR 


<0 072> 


30 


MN~NACK 


EQU 


007H*16+NODE 


ADOR 


<00D2> 


31 
32 


MN^READY 


EQU 


GGDH*16+N0DE. 


..ADDR 


(0082) 


33 


NM STATUS 


EQU 


008H*16-fNQDE 


ADDR 


<0092> 


34 


NM„ACK 


EQU 


00VHX16+NODE. 


.ADDR 


<00A2> 


35 


NM~CANCEL 


EQU 


0GAH*16+NODE" 


.ADDR 


(0002) 


36 


NH SEND 


EQU 


00BH*16+NOD£ 


.ADDR 


<00C2> 


37 
38 
39 


NH„NACK 


EQU 


O0CH*16+NODE.. 


ADDR 




40 


} local equates 








41 










(0001) 


42 

43 


DATA„AVAIL 


EQU 


001H 




< > 


44 


RDRF INT 


EQU 







<0001> 


45 


TDRE„INT 


EQU 


1 




<GU02> 


46 
47 


IGNjFoRF^INT 


EQU 


a 




< > 


48 


CNTRL 


EQU 







< 1 > 


49 


lengthinjhi 


EQU 


i 




<0002> 


50 


LENCTHINJlO 


EQU 


2 




<00 03> 


51 


DATAIN 


EQU 


3 




<0004> 


52 


CHKSUH IN 


EQU 


4 




<0005> 


53 


STATOUf 


EQU 


5 




<0006>. 


54 


CHKSUH OUT 


EQU 


6 




<0007> 


5t> 
56 
57 


WAIT ACK„NACK 


EQU 


7 








PRUG 







) PRINTER ADDR * 



;co««and .control (reset) 

jcoMMand .control (status) 

jcottttand .control <ack) 

jcorcwand .control (clr) 

)coM«and .control (receive) 

;cottMand .control (cancel) 
;coMfnand .data (send ) 

jcoMMand .control ( nack ) 

;coMf\and , control (ready) 

$ response , control (status) 
; response .control (ack) 
jresp on se. control (cancel) 
; response .data (send) 
; response .control (nack) 






FILE: PR_MAC:pADAMP HEWLETT-PACKARD: 6801 Assewbler 

LOCATION OBJECT CODE LINE SOURCE LINE 










58 
59 






GLB 


PR_HAC 




0000 




60 


PR„HAC; 






o 


oooo 


9605 


61 

62 






LDAA 


INT__FLAG,D 




0002 


270A 


63 






BEQ 


EXP, RDRF 





0004 


4A 


64 






DEC A 




0005 


2732 


65 






BEQ 


EXP„TDRE 








66 










© 






67 

68 


)**** 


HAD AN 


RDRF THAT 


WE WANT TO IGNO 




0007 


8600 


6V 






LDAA 


#RDRF INT 


o 


0009 


9705 


70 
71 






ST A A 


INTJFLAG,D 




000B 


7EG143 


72 
73 






JHP 


END_PR_NAC 


o 


O0OE 




74 


FXP_RDRF; 












75 


• ************** JSR 


MPR_TR_REC 









76 
77 


\ 














78 
79 


$ local equates 
> 




o 




<G00F> 


80 


ADDR^ 


MASK 


EQU 


00FH 






<00F0> 


81 
82 


CHNlT 


HASK 


EQU 


OFOH 







<0040> 


83 
84 


ORFE 




EQU 


01000000B 




G00E 


00 


85 






f SEC 




© 


000F 


D611 


86 






LDAB 


011H/JD 




0011 


9612 


87 
88 






LDAA . 


012H,D 





0013 


C440 


89 






ANDB 


#URFE 




0015 


2707 


90 
91 






BEQ 


NO_URFE 


© 






92 
9S 






GLB 


BREAK„ORFE 




0017 




94 


BREAK 


J3RFEs 









0017 


8600 


95 






LDAA 


#CNTRL 




001? 


970 


96 
97 






ST A A 


CURRENTS TATE ,D 





GG1B 


7E003G 


98 
99 






3 HP 


SET_WAKEUP 


© 


001E 




100 


NO„ORFEr 






00 IE 


D600 


101 






LDAB 


CURRENT_STATE,D 




020 


260C . 


102 






BNE 


ENDTF^CNTRL 




0022 


16 


103 






TAB 




o 


023 


840F 


104 






ANPA 


#A00R HASK 




025 


8102 


105 






CHPA 


#NODE ADDR . 




027 


2604 


106 






BNE 


ELSE„NOfA0X>R 





002? 


17 


107 
108 






1BA 






002A 


00 


10? 






SEC 




w 


002B 


2001 


110 






BRA 


END1|-,ADDR 




02D 




111 


ELSE__ 


NOIA00R 






• 


002D 


OC 


112 






CLC 




002E 




113 


END IF 


_AD0R ; 








002E 




114 


END IF 


CNTRLi 







hon, 7 Nov 1983, 16j03 



PAGE 



UNA! KIND OF INT ARE WE 

EXPECTING ? 
RDRF 

1DRE . . . 



) NOW WAITING FOR RDRF INT 



} DONE 



;1 net„byte„in * HPR„TR„REC 



)1 TOKEN » BYTE FOR THIS NODE 

;1 NET BYTE IN » SCI RX 

$1 IF Dl„MOD£„WURD » CONTROL 



;3 



get Dl„MODE_WORD 

BAVE„NBI = NET_BY1E_IN 

ADDRESS - NET^BYrE^IN .AND, A0OR„HASK 

IF ADDRESS « NODE ADDR 



NET BYTE IN = SAVE NBI .AND, CMND HASK 



/* NOT rec 
/*• LOWER H 



/* UPPER H 



2 ELSE 

3 TOKEN « BYTE NOT F-QK THIS NODE 
2 E'^OIF 

1 LNDIF 



u 



i: 


FILE! PR 


.MAC sp AD AMP 


HEWLETT-PACKARD 


; 6B01 


Assewb .ler 





LOCATION 


OBJECT CODE 


LINE 




SOURCE LINE 






002E 


250B 


115 






BOS 


BYTE.FORJJS 


o 






116 












0030 




117 


SET, 


_WAKEUP : 






o 


1)030 


D611 


118 




, 


L0AB 


. 011H,D 


0032 


CA01 


119 






ORAB 


♦OOOOOOOlfe 




034 


1)711 


120 
121 
122 
123 
124 






SCAB 


011H,D 


c 


0036 


7E0143 






J HP 


END„PR_MAC 





0039 




EXP_ 


.TORE J 






0039 


9611 


125 






LDAA 


Q11H,D 








126 
127 
128 










G 


03B 




BYTE.FOK^USi 












129 










c 


03E 


D600 


130 






LDAB 


CURRENT_8TATE,D 


0030 


58 


131 






LSLB 






003E 


CE0046 


132 






L0X 


#STATE w TABLE 


© 


0041 


3A 


133 






ABX 




0042 


EEOO 


134 






L0X 


0,X 




0044 


6E0 


135 
136 






JMP 


0,X 


<D 


0046 




137 


STATE_TABLEi 








0046 


0056 


138 






FOB 


CONTROL 




0048 


00B4 


139 






F0B 


LENGTH_IN_HI 


c 


004A 


OOBF 


140 






FOB 


LENGTH IN LO 




004C 


OOCF 


141 






FOB 


OAT A IN 




004E 


OOEB 


142 




r 


FOB 


CHK SUM IN 


© 


0050 


0107 


143 






FOB 


staT„out 




0052 


0135 


144 






FDB 


CHK SUM OUT 




0054 


013B 


145 






FOB 


GOT„ACK_NACK 


G 






146 












0056 




147 


CONTROL; 








0056 


8102 


148 






CMP A 


*MN„RE8ET 


© 


. 0058 


2605 


149 
150 






BNE 


NOT_RESET 


... 


005A 


FEFFFE 


151 






LDX 


0FFFEH ; E 


Qj 


005D 


6E00 


152 

153 






JMP 


0,X 


O 


005F 




154 


NOT. 


.RESET t 






005F 


81D2 


155 






CMPA 


#MN READY 




0061 


2715 


156 






BEQ 


CHK_CTS 




0063 


8162 


157 






CMPA 


#MN SEND 


G 


065 


2726 


158 






BEU 


REC.OATA 




67 


8112 


159 






CMPA 


*MN STATUS 




069 


2729 


160 






BhU 


SEN0__STAfUS 









161 












06B 


86C2 


162 






L0AA 


#NM NACK 




60 


BD00 


163 






JSR 


MPl?~TR_ TRANS 





0070 


2503 


164 






BCS 


ERR1 




072 


£000 


165 
166 






JSR 


MPR_TR_TCU 


o 


0075 




167 


ERR -J 


: 








75 


7E0143 


168 
169 






JMP 


ENDJ ; 'R„MAC 


• 


0078 




170 


CHK_ 


.CTS : 








078 


9600 


171 






LDAA 


M_SIG,0 



Hon, 7 Nov 1983, 16s 04 



>AGE 



; 1 if net_by te__in - for our address 



; SET WAKE-UP FLAG 



ALLOW WRITE 10 TRD 
10 CLEAR CORE 



;2 case CURRENT J3TATE of 

; check for control case 
} TABLE LOOK-UP 
; INTO STA TESTABLE 

I WHERE WE SHOULD GO 



; net byte in is command 

; expecting hi byte of length 

; lo 

\ expecting data bytes in 

; expecting checksum in 

$ sending status out 

\ sending checksum out 

t waiting fun ack/nack 



con trol 



begin 



; REQUEST FUR STATUS 



; BAD COMMAND TO ME 



y DONE 

; 1 c h k _ c T s 



begin 

if NIM.M SIG 



o 



FILE: FR„MAC;pADAMP HEWLETT-PACKARD: 6801 Assembler 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon, 7 Nov 1983, 16:04 PACE 4 



(D 



3 



^5 






^ 



0O7A 


2604 


007C 


8692 


007E 


2002 


0080 




0080 


86C2 


0082 




0082 


BDOOOO 


0085 


2503 


0087 


BDOOOO 


008A 




008A 


7E0143 


08D 




008D 


8601 


008F 


9700 


0091 


7E0143 



0094 



0OV4 


86QF 


0096 


9711 


0098 


CE0004 


009B 


DF01 


09D 


8605 


009F 


970 


00A1 


8601 


00A3 


9703 


00A5 


8601 


00A7 


9704 


00A9 


7FG0Q3 


0QAC 


B60144 


OOAF 


9713 


00B1 


7EQ143 


00B4 




0OB4 


9701 


00B6 


970 


00B8 


C602 


OOBA 


D700 


OOBC 


7E0143 


OOBF 




OOBF 


9702 



172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 



ELSE 



ENDIF 



ERR2 



P.£C 



SEND 





BNE 


ELSE„NCTS 




LDAA 


#nm ACK 




BRA 


ENDIF„CrS 


NCTS: 








LDAA 


#NM_NACK 


jrrss 








JSR 


MPR TR TRANS 




BCS 


ERR2 




JSR 


MPR„TR_TCU 




JMP 


END_PR_MAC 


ATA: 


LDAA 


#LENGTHIN HI 




STAA 


CURRENT STATE, D 




J' HP 


END PR MAC 


STATUS? 







send ACK 



LENGTH IN HI i 



DISABLE RDRF INT 
ENABLE TORE INT 
WAKEUP * 1 



LDAA 
STAA 


♦OOOOllttB 
011H,D 


LDX 
STX 


*S1ATJ»KT_SIZE-1 
LOCJJ£N,D 


LDAA 
STAA 


♦STATOUT 
CURRENT_STATE,I> 


LDAA 
STAA 


#TDRE INT 

int_flag,b 


LDAA 
STAA 


#1 
DATA„INDEX,D 


CLR 


CHK_SUM,I> 


LDAA 
STAA 


STAT PKT+0 
013H,D 


JMP 


END_PR_MAC 


STAA 
STAA 


LOC LEN,D 
M_LEH,D 


LDAB 
SI AB 


#LENGTHIN„LO 
CURRENT_STATE,D 


J MP 


END PR HAC 



else 



;3 



send NACK 



endif 



j 1 rec_data ; begin 

$2 ' CURRENTJ3TATE « lengthen 

;1 end 



> 4 BYTES IN STATUS PKT 
j <WE ALREADY SENT 1) 

; WE WILL BE SENDING DATA 
TDRE IS SOURCE OF INTS NOW 



USE OFFSET BYTE 1 NEXT TIME. 
WE TRANSMIT 



FIRST BYTE 
SEND BYTE 

BYE BYE . . . 

2 lengthen 



3eqm 

LOC_LEN ~ net_byte_in 

CURRENT.STATE = data„in 
get the data__in constant 
store the constant 

end 



LENGTH IN LO : 



STAA 



LQC_Lfc.N + l ,D 



u 



© 
















FILE -j PRJIACipADAMP 


HEWLETT-PACKARD 


i 6801 


Assembler 




© 


LOCATION OBJECT CODE 


LINE SOURCE LINE 








OOCt 9701 


229 




STAA 


MJJiN-U,D 




G 




230 












0OC3 C603 


231 




LDAB 


♦DATA1N 




O 


DOCS P70 


232 




STAB 


CURREN 'INSTATE >D 






233 












00C7 7F0004 


234 




CLR 


DATA INDEXED 






OOCA 7F0003 


23 5 




CLR 


CHK_SUH,D " 




© 




236 












OOCD 2074 


237 
238 




BRA 


kND_PR„MAC 




& 


OOCF 


239 DATA. 
240 


.IN! 






)2 
j3 




OOCF CE0006 


241 




LUX 


♦NET IN BUFF 


J 





00D2 D604 


242 




LDAB 


i)ATA_INBEX,D 


) 




00D4 3A 


243 




ABX 




> 




00D5 A700 


244 




STAA 


0,X 


> 







245 












G0D7,98G3 


246 




EORA 


CHK SUM,D 


> 3 




00D9 9703 


247 




STAA 


CHK_SUH,i> 




i) 




248 












OODB 7C0004 


249 
250 

251 




INC 


DATA_1NDEX,D 


)3 


© 


OGDE DEQ1 




LDX 


LOC„LEN,D 






OOEO 09 


252 




DEX 








0OE1 DFG1 


253 




STX 


LGC_LEN,D 




© 




254 










- 


00E3 2604 


255 
256 


' 


BNE 


HORE^DATA^IN 


)3 
}4 


G 


0GE5 8604 


257 




LDAA 


#CHKSUM IN 


J 




U0E7 970 


258 
259 




STAA 


CURRENT^STATE,D 


> 


Q 


OOE? 


260 MORE. 


.DATAMINI 






;3 




00E9 2058 


261 
262 




BRA 


EN0J>RJ1AC 







OOEB 


263 CHK SUH IN: 












264 








»3 




OOEB 9103 


265 




CMPA 


CHK SUM,D 


t 


O 


OOED 260B 


266 
267 




BNE 


ELSE„NEQU 






OOEF 8601 


268 




LDAA 


MATAJWAIL 




' 


00F1 9700 


26V 
270 




STAA 


H„SIG,0 






OOF- 3 8693 


271 




LDAA 


mn ACK 


;4 


© 


0F5 20 OS 


272 
273 




BRA 


EN0IF_CSNUM * 






0F7 


274 ELSE. 


,NEQU; 






}3 





0F7 86C2 


275 
276 




Li) A A 


#NM_NACK 






0F9 


277 ENDIF„CSNUH; 






J 3 


© 


0F9 BOO 00 


278 




JSR 


MPRJfK„ TRANS 






OOFC 2507 


279 




BCB 


ERR 3 






OOFE BDOOOO 


2B0 




JSR 


MPR.TR JTCU 









281 
282 








J 3 




0101 860 


283 




LDAA 


*CNTRL 




• 


0103 970 


284 
285 




STAA 


CURRENTS! ATE, D 


;3 



;2 



>4 



Mon, 7 Nov 1V83, 16:0b 
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data in 



begin 

raMjiewory tNIM , M_DATA J ™ net_bvte_in 
get the base pointer into ram_MeMory 
get the index froM the base 
forM the effective address 
put net m byte„in into ra*__MeMor v 

csnuM ~ csnuM XOR net_hyte_in 



NIM.M DATA 



NIH.M DATA + 1 



chk sun 



if LUC__LEN = 
CURRENT^STATE * chk_.su* 
get the chk_suw constant 
store the constant 

end if 
end 

begin 
if csnuM - net„bvte_in 
compare with net_byte_in 



send ACK 



else 



send NACK 



end if 



CURRENT^STA'TE - idle 
get the i d I e constant 
store the constant 

CURRENT STATE ~ control 



o 



<&.'■ 



FILE; PRJIACipADAMP HEWLETT -PACKARD : 6801 Assembler 

SOURCE LINE 

ERR3s 



STAT OUT; 



Hon, 7 Now 1983, 16; (35 



'AGE 



© 


LOCATION 


OBJECT CODE LINE 








286 


G 


0105 




287 




0105 


203C 


288 
289 


O 


0107 




290 




0107 


CEO 144 


291 





010A 


D604 


292 


01 OC 


3A 


293 




0100 


A60 


294 


©. 


010F 


9713 


295 






296 




0111 


9803 


297 




0113 


9703 


298 


o 






299 




0115 


7C0004 


30 
301 


© 


0118 


DE01 


302 




011A 


09 


303 


® 


011B 


DF01 


304 
305 




01 ID 


2604 


306 
307 


© 


011F 


8606 


308 




0121 


9700 


309 
310 


© 


0123 




311 




0123 


201E 


312 
313 


© 


0125 




314 




0125 


9603 


315 




0127 


9713 


316 


© 






317 




012? 


9611 


318 


© 


012B 


9612 


31? 






320 








321 


© 






322 
323 
324 




01 2D 


861B 


325 


© 


012F 


9711 


326 

327 




0131 


8600 


328 


G 


0133 


9705 


329 
330 




0135 


8607 


331 


© 


1 S? 


970 


332 
333 
334 


© 


013? 


2008 


335 
336 




013B 




337 


© 


013B 


C600 


338 




01 3D 


D7 


340 


• 


013F 


86 IB 


341 




0141 


9711 


342 



HORE STAT OUT! 



CHK SUM OUT: 



GOT ACK NACK : 



BRA 


END„PR_MAC 




LDX 


#87 AT PKT 


> 


LDAB 


0ATA_lNDEX>D 


> 


ABX 




> 


LDAA 


0,X 


> 


ST A A 


013H,D 


) 


EORA 


CHK SUM,D 


) 


STAA 


CHKJ3UM/D 


> 


INC 


DATA.lNDEXjD 


J 


LDX 


LOC_LEN,D 


J 


DEX 




\ 


STX 


LOC^LEN^D 


; 


BNE 


MORE_.STAT.OUT 


> 


LDAA 


♦CHKSUM OUT 


; 


STAA 


CURRENTjSTATEjD 


> 


BRA 


END PR MAC 





LDAA CHK SUM,D 

STAA GISHjD 

LDAA Q11H,D 

LDAA 012H,D 

DISABLE TDRE INT 

ENABLE RDRF INT 

MAKEUP * 1 

LDAA #00011011B 

STAA 011H,D 

LDAA #RDRF INT 

STAA INT_FLAG ? D 

LDAA #WAIT_ACK NACK 

STAA CURREN INSTATE ,D 



BRA 


END„PR_MAC 


LDAB 


♦ CNTRL. 


STAB 


CURRENT__STATE,0 


LDAA 


#0001 101 IB 


STAA 


1 1 H 



SOURCE OF STATUS OUT 
WHICH BYTE (HIS TIME 
GET INDEXED ADDR 
A * DATA- BYTE TO GO 
SHIP IT 

ACCUMULATE CHECKSUM 



NEXT BYTE NEXT II ME 
DEC COUNT OF BYTES SENT 
SAVE HEU BYTE COUNT 
MORE TO DO 
SEND CHECKSUM NEXT TIME 



> OUTPUT CHECKSUM 

\ RESET RDRF (HOPEFULLY,..) 



NEXT INT SHOULD BE RDRF 



NEXT BYTE IN SHOULD BE 
ACK/NACK ON WHAT WE 
SENT 

DONE 



; NEXT BYTE IN IS HEM 
5 SCENARIO 



O 



^ 



FILE; PR^MACipADAMP HEWLETT-PACKARD: 6801 Assembler 
LOCATION OBJECT CODE LINE SOURCE LINE 



Mon, 7 Nog 1V83, 16: 06 



PACE 



0143 

0143 3B 

0144 

0144 83 

0145 10 

0146 00 

0147 00 

0148 00 




0001 
0003 
0004 
0005 



0006 



RTI 



PCB 
FCB 
FCB 
FCB 
FOB 

EQU 



343 

344 i x -x- x x- x- x x x- x< -x x x- x- x B R A 

345 

346 END„PR„MAC; 

347 

348 

34V STAT„PKT: 

350 

351 

352 

354 
355 
<0005> ' 356 STAT„PKTJ31ZE 
357 
358 3 
359 
360 j 
361 
362 
363 
364 

365 CURRENT^STATE 

366 LOG LEN 

367 CHKJ3UM 

368 DATA_INDEX 
36V INT_FLAG 
370 
371 
S72 

373 NET IN BUFF RMB 



END PR MAC 



16 




*-S"FAT PKT 



local data areas defined 



DATA 

GLB 

RMB 
RMB 

RMB 
RMB 
RMB 

GLB 



CURRENT STATE 



1 
1 

1 

NET„1N„BUFF 
16 



endcase 



;local counter used for data input 

jinteri* variable used to calculate the check sum 

; INDEX INTO NET^IN^BUFi- 

i WHERE XNTS COME FROM 



jbuf f er used to store net „bvte__ in values 



O 



W 



Err or s= 



o 



D 



J> 



FILE: PRJIACspADAMP 
LIME* SYMBOL 



CROSS REFERENCE TABLE 
TYPE REFERENCES 



PACE 



o 



80 


ADDR MASK 


A 


104 




94 


BREAK URFE 


P 


92 




128 


BYTE FOR US 


P 


"15 




52 


CHKSIM IN 


A 


■257 




54 


CHKSUMJ3UT 


A 


308 




170 


CHK CTS 


P 


156 




367 


CHK SUM 


D 


211, 235 , 246 , 247 , 265 , 297 , 298 ,315 




263 


CHK_SUM_IN 


P 


142 




314 


CHK "SUM OUT 


P 


144 




81 


CMND^MABK 


A 






48 


CNTRL 


A 


95,283,338 




147 


CONTROL 


P 


138 




365 


CURRENT STATE 


D 


11,96,101,130,187,203,223,232,258,284,309,332,339. 


,363 


SI 


PATAIN 


A 


231 




42 


DATA AVAIL 


A 


268 




239 


DATA-IN 


P 


141 




368 


data'index 


D 


209,234,242,249,292,300 




175 


ELSE NCTS 


P 


172 




274 


ELSE^NEUU 


P 


266 




111 


ELSE NO 1' ADDR 


P 


106' 




113 


ENDIF ADDR 


P 


110 




114 


ENDIF„CNIRL 


P 


102 




277 


EHDIF CSNUM 


P 


272 




177 


ENDIF CTS 


P 


174 




346 


END PR MAC 


P 


72,122,168,183,188,216,225,237,261,288,312,335 




167 


err! 


P 


164 




182 


ERR2 


P 


179 




287 


ERR3 


P 


279 




74 


EXP RDRF 


P 


63 




124 


EXP.TDRE 


P 


65 




337 


GOT ACK_NACK 


P 


145 




46 


IGN„RDRF„INT 


A 






36V 


INT FLAG 


D 


61,70,206,329 




49 


LENGTHINJHI 


A 


186 




50 


LENGTHINJLO 


A 


222 




218 


LENGTH IN HI 


P 


139 




22.7 


LENGTH_IN„LO 


P 


140 




366 


LOC„LEN 


D 


200,219,228,251,253,302,304 




25 


MN ACK 


A 






28 


MN^CANCEL 


A 






26 


MNJXR 


A 






30 


MN NACK 


A 






31 


MN READY 


A 


155 




27 


MN m RECEIVE 


A 






23 


MN RESET 


A 


148 




29 


MNJ3END 


A 


157 




24 


MN STATUS 


A 


. 159 




260 


MORE DATA-IN 


P 


255 




311 


MORE~STA1„GUT 


P 


306 




6 


MPR.fR.fCU 


E 


165,180 ,280 




5 


MPR TR TRANS 


E 


163,178,278 




16 


M^LEN 


E 


220,229 




16 


M SIC 


£ 


171 ,269 




373 


NET IN BUFF 





12,241 ,371 




34 


NM„ACK 


\ A 


173,271 




35 


NM CANCEL 


A 






37 


NM NACK 


A 


162,176,275 





FILE; PR_MAC;pADAMP CROSS REFERENCE. TABLE 
LINE* SYMBOL TYPE REFERENCES 



PAGE 



~\ 



36 


NM^SEND 


A 




33 


NM_S"TATUS 


A 




IB 


NODE ADDR 


A 


23, 24 ,25, 26 , 2? ,28,29,30 ,31, 33, 34 ,35 ,36, 37, 105 


154 


NOTjiESET 


P 


149 


1 


NO ORFE 


P 


90 


83 


ORFE 


A 


89 


60 


PR^MAC 


P 


59 


44 


RDRF INT 


A 


69,328 


tea 


REG DATA 


P 


158 


190 


SEN5_srArus 


P 


160 


1 1 7 


SET MAKEUP 


P 


98 


137 


STATE (ABLE 


P 


132 


S3 


STATOUT 


A 


202 


290 


STAT our 


P 


143 


34V 


STAT PKT 


P 


213,291,356 


356 


STAT_PKr_SIZE 


A 


199 


45 


TPRE INT 


A 


205 


55 


WAIT ACK NACK 


A 


331 



-J 









FILE; MPR^TRJTRipADAMP HEWLETT-PACKARD! MPR,J'R_TRANS <c) Coleco 1983 Confidential Mon, 7 Nov 1VB3, 16:02 PACE 

LOCATION OBJECT COPE LINE SOURCE LINE 

i A 680i A 

3 NAME A Rev 03 - RPD A 

4 

5 »e..MPR_TR - .TRANQ MACRO ^Header Reg. 4 

y 6 .GOTO Ede„HPR TR TRANS 

7 

^ 8 Project; NE'I , 83-10 1 

& 9 

^ 11 81 S$ 

^ 12 m MPR T R T RAN 3 I> I... iE> M 

13 ^ m 

G 15 

16 Rev History 

17 Rev , Date Narce Change 

© 18 3 20juX740p RPB removed LIST directives 

19 2 19jul2053 JIM Printer MAC started, 

20 1 13juI835a . RP'0 converted pseudo code to 6801 code 
© 21 12JUL1236 DLS Initial Pseudo code 

22 

23 EdeJiPR_TR_TRANS MEND 



© 



ii; 



u 



^ 



O 



O 



FILE: MPR_TR_rR:pADAHP HEWLETT-PACKARD : H!'R_f R_TRANS <c> Coleco 19(33 Confidential Mon, 7 Nov 19(33, 16i02 PACE 

© LOCATION OBJECT CODE LINE SOURCE LINE 



© 
o 
© 
o 
c 

G 
© 
© 
O 
O 
© 
© 

KJ 
© 

o 

G 
© 
© 



2 5 -X- X X X X X X X X X X X -X X X X X- X X X X X X -X X X X X X X X X X X X* X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 



26 * 


X 


27 * 


MODULE NAHE} x 


2U * 


X 


29 x 


HPR_,R_TRANS * 


30 * 


X 


31 * 


INPUTS: x 


32 x 


X 


33 x 


NET_.BYTE_.DUT <REG_A> * 


34 * 


X 


35 x 


FUNCTIONS) : * 


36 x 


X 


37 * 


1, TO SEND A BYTE OUT OVER THE NETWORK. * 


38 * 


X 


3V x 


OUTPUTS: ' * 


40 x 


* 


41 * 


NET w BYTE„OUT (LOCATION 13) * 


42 x 


X 


43 x 


CALLS; * 


44 x 


X 


4b x 


NONE, * 


46 x 


X 


47 * 


CALLED BYi * 


48 * 


X 


49 x 


MPR ACH SEQ * 


50 x 


NPR_NIH_READ * 


51 * 


"* ~ * 


52 * 


NOTES; * 


53 * 


X 


54 x 


NONE, * 


55 x 


X 


56 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


57 




5 8 X XX * X X X XXX X X XXX X X XXX X X X X X X X XX XXX X X XXX X X X X X X X X X X X X X X X X X X X X X X X X X X X 


59 x 


X 


60 * 


PSEUDO CODE: * 


61 * 


X 


62 x 


HHR„TR_TRANS: * 


63 x 


X 


64 x 


REPEAT „UNTILJ3ET: * 


65 x 


X 


66 x 


IF MI_M<U>.5»0 THEN GOTO REPEAT UNTIL BET ; * 


67 x 


ENDIF; * 


68 x 


X 


69 x 


HEH<13)=REG„A; * 


70 x 


X 


71 * 


RETURN) * 


72 * 


X 



7 3 X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 






FILE; MPR.J'RJTRipADAMP HEWLETT-PACKARD; MPR m TR m 7RANS <c) Coieco 1983 Conf iden t ia 1 Mori, 7 Now 1983, 16;02 PAGi 



® LOCATION OBJECT CODE LINE SOURCE LINE 



© 



_> 



• 
o 





7b 
+ 




INCLUDE 


PGGJ 




> 

) 6801 internal register eq 


< > 


+ 


PI JDIR 


equ 


000H 


<0002> 


+ 

+ 


PI. DATA 


EUU 


002H 


<0001) 


-f 


P2_DIR 


E6IU 


001H 


<0003> 


+ 

+ 


P2JDATA 


EQU 


003H 


<0004> 


P3 DIR 


EQU 


0U4H 


<aoo6> 


+ 
+ 


P3.DATA 


EQU 


0U6H 


<0005> 


P4_DIR 


EQU 


005H 


<0Q07> 


+ 
-f 

+ 


P4„i>ATA 


EQU 


07H 


<0008> 


T CNTLSTAT 


EQU 


008H 


<Q0Q9> 


+ 


T CNTRHGH 


EQU 


009R 


<000A> 


+ 


T.CNTRLOW 


EMU 


AH 


<OO0B> 


•f- 


T OCMPHGH 


EQU 


00BH 


<000C> 


+ 


T OCMPLDW 


EQU 


O0CH 


<00uD> 


4- 


T.ICAPHGH 


EUU 


00DH 


<OO0E> 


+ 

■f 

+ 


T„ICAPLOW 


EQU 


OOEH 


<000F> 


P3„CNTLS1AT 


EQU 


GOFH 


<0010> 


SCI RM 


EQU 


010H 


<oon> 


•f 


SCI_TR_CS 


' EQU 


011H 


<0Q12> 


+ 


SCI RX 


EQU 


012H 


<U013> 


+ 

+ 


SCIJTX 


EUU 


013H 


<0014> 


RAM_CNTL 


EQU 


014H 




76 










77 


J 








78 


; local equates 






79 


> 






<0020> 


80 
81 


TDREJ1ASK 


EQU 


oaoH 



jport 1 data direction register 
;port 1 data register 

;port 2 data direction register 
;port 2 data register 

jport 3 data direction register 
;port 3 data register 

;port 4 data direction register 
;port 4 data register 

;tiMer control and status register 

jcounter high byte 

jcounter low byte 

;output compare register high byte 

;output compare register low byte 

;input capture register high byte 

;input capture register low byte 

jport 3 control and status register 

;rate and Mode control register 

$ transmit/receive control and status register 

^receive data register 

jtranswiT data register 

jRAM control register 



; "transMit__data_register_eMpty " Mask 






© 



^> 






FILE: HFR_JR_JR;pADAHP HEWLETT-PACKARD* MPRJ1R.JRANS 
LOCATION OBJECT CODE LINE SOURCE LINE 



(c) Coleco 1983 Confidential 



Hon, 7 Nov 1983, 16:03 



PACE 



00 

0000 3C 

0001 CE0016 

0004 

0004 0? 

0005 270B 



07 D6U 

0009 C420 
0B 27F7 

000D 9713 

000F OC 

0010 2004 
0012 



0012 BDGQOO 

0015 01) 

0016 

0016 38 

0017 39 



Errors- 



83 

94 

8S hPR_.TR TRANS j 

86 

87 

88 

8V REPEAT; 

90 

91 

92 

93 

94 

95 

96 

97 * 

98 

99 
100 
101 
102 
103 

104 HAVE TDRE ERR i 

105 ; 
106 
107 
108 
109 
110 
lit 
112 

113 END„TR; 

114 

115 



PROG 
GLB 

PSHX 
LDX 



DEX 
BEQ 



LDAB 
ANDB 

BEQ 

STAA 

CLC 

BRA 



m>ti TR TRANS 



* < 2*1 60 ) / ( 3+3+3+2+3 ) 



HAME TORE ERR 



SCI TR CS,D 
♦TDRE hASK 
REPEAT 

SCIJTX/D 



END TR 



CLEAN UP UART PORTS 
EXT CLEAN_UART„HW 

JSR CLEAN JJARTJW 

SEC 



PULX 
RTS 



;3 



*3 

;3 



SAUE X JUST IN CASE 
ALLOW 2 BYTE TIMES 

1 REPEA1 
TXhE UP ??? 
YOP 

2 TDRE « SCIJTR_.CS .AND, 7DREJ1A8K 

get the control/status byte 
Mask in" the TDRE hit 
1 UNTIL TORE = TRUE 



1 SCI TX 



NEXT BYTE OUT 



^J 



o 



FILE; MPR_TR_TR:pADAMP CROSS REPERENCE TABLE PAGE 

LINE* SYMBOL TYPE REFERENCES 
107 CLEAN UART HW E 109 



113 


END.JR 


P 


102 


104 


NAME TORE ERR 


P 


91 


85 


MPR_TR.J"RANS 


P 


84 


89 


repeat" 


P 


96 




SCI fR CS 


A 


94 




SCI TX 


A 


98 


BO 


TDRE MASK 


A 


95 



FILE; HPR_TR_TC:pADAMP HEWLETT -PACKARD : HPR^TRJTCU <c) Coleco 1VB3 Confidential Hon, 7 Nov 1983, 16:00 PAGE 

O LOCATION OBJECT CODE LINE SOURCE LINE 

1 A 6801 A 
C 3 NAHE A Rev 01 - RPD A 

4 

5 3De_MPR_TR 1 CU MACRO ; Header Rev, 4 

C 6 , OOTO Ede_MPR„.TR__fCU 

7 

8 Project i NET, 83-101 
C 9 

io mmmmmmmmummmmmmmmmmmm mm mmmmmmm 

it m * m 

© 1 2 m m p r *r r r e U R l :> x> ^ 

13 at as 

G ■ 15 

16 Rev History 

17 Rev. Date Nawe Change 

© 18 1 20jul800p RPD created froM MPR file 

19 19jul535p RPD Initial Pseudo code and code 
_ 20 

© 21 ':de_MPR_TR_TCU MKND ' 

O 

© 

C 

G 

© 

© ' 

© 

G . 

G 

G 

• 

G ' "~~ --■ : 



© 



o 



o 
o 



FILE: MPR„TR„7C;pADAMP HEWLETT-PACKARD ; MPR._TR._TCU (c) Coleco 1983 Confidential Hon, 7 Nov 1983, 16:00 PAGE 

LOCATION OBJECT CODE LINE SOURCE LINE 



2 3 x- * * X -X- -X- -X- X- X* -X- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

24 * * 

25 * MODULE NAME: * 

26 x x 
© 27 x MPRJJR.JCU (transmit clean up) * 

28 x " x 

29 x INPUTS: * 

30 x x 

31 * none * 

32 x 

<&- : 33 * FUNCTION (S) ; * 

34 -x- x 

35 x 1, Clears the "receive data register full" flag of the x 
© 36 x 6801 SCI after a transmission sequence (1 or more * 

37 x bytes), The flag is set as a result of sending a byte x 

38 -x out and receiving the same byte in on the common NET * 
© 39 x- line vsed for sending and receiving. * 

40 x * 

41 * OUTPUTS I " * 
© 42 x * 

43 * SCI control/status register bit 7*0 * 

44 x ■ * 
© 4b x CALLSi « 

46 * * 

47 x none * 
© 48 x * 

49 x CALLED BY} * 

50 x ' ■* 
© 51 x HPR^ACH^R * 

52 x Call routines calling MPR^TR _TRANS> * 

53 x * 
© 54 * NOTES i * 

55 x 1 - This sequence follows the procedure described in * 

56 x hardware manuals for clearing the flag, Which is: * 
© 57 * step 1) rsad the SCI control status register * 

58 x step 2) r&ad the SCI receive data register x 

59 * 2 - The MAC modules are responsible for calling this * 
© 60 x module after doing a transmit function to avoid * 

61 * reading itself when other data is expected, * 

62 x * 

© 63 x X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

© 
G 



© 

e 
© 

©:■ 

c 

©© 
G 
O 
© 
© 
G 

© 
© 
G 
© 
O 
© 
O 

o 



FILE; MPR_TR.J"e:pADAMP 1 
LOCATION OBJECT CODE LINE 



IEWLETT -PACKARD j HPR„TR„TCU <c) Coleco 19ti'£ Confident ia J 
SOURCE LINE 



Han, 7 Nov 1983, 16: 01 



PAGE 



<0000> 

<oooa> 

<000t> 
<OO03> 

<0004> 
<0006> 

<0005> 
<0007> 

<G0Q8> 
<O009> 
<OO0A> 
<OO0B> 

<0O0C> 
<000D> 
<O00E> 

<00QF> 

<0010> 
<U011> 
<0 012> 
<U013> 

< 1 4 > 



<0020> 



uooo 

00 00 3C 
OOOt CEQ022 



65 
66 
67 
63 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
+ 

+ 

+ 
•f 
+ 
+ 

+ 
+ 

+ 

+ 

+ 
■f 
+ 
+ 
+ 

+ 
+ 
79 
80 
01 
82 
SZ 
84 
83 
86 
87 
88 
89 
90 



5 -x -x- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 



PSEUDO CODE I 

begin 

wait for TORE » 1 

clear RDRF tfroM 2nd to the last byte} 

wait for RPRF = 1 

read in the received byte Cfrow very last byte} 
end 



x 

x 

X 
X 
X 
X 
X 
X 
X 
X 



X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

INCLUDE PG0„EQU 
6801 internal register equates <page 0) 



P1_DIR 
Pl_i>ATA 

P2_DIR 
P2_DATA 

P3 DIR 
P3_D AT A 

P4_DIR 
P4_J)ATA 

T CNTLSTAT 
T„CNTRHCH 
T CNTRLOW 
T OCMPHGH 
T OCMPLOW 
T_ICAPHGH 
T_ICAPLOW 

P3_CNTLSTAT 

SCI^RH 
SCI TR CS 
SCI RX~ 
SCI YX 



EQU 
EQU 

EQU 
EQU 

EQU 
EQU 

EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 

EQU 
EQU 
EQU 
EQU 

EQU 



RAM„CNTL 

; local equate 

TDRE HASK EQU 



HPR TR TCU; 



PRUG 
CLB 

P8HX 

LDX 



000H 
002H 

001H 
003B 

004H 
006H 

005H 
007H 

008H 
009H 
00 AH 
G0BH 
00CH 
0DH 
OOEH 

OOFH 

010H 
011H 
1 2H 
1 3H 

014H 



020H 



HPR TR TCU 



# < 3* 1 60 ) / <.3+3+3* 2*3 ) 



jport 1 data direction register 
jport 1 data register 

jport 2 data direction register 
;port 2 data register 

jport 3 data direction register 
;port 3 data register 

jport 4 data direction register 
jport 4 data register 

;ti«ner control and status register 

^counter high byte 

^counter low byte 

^output compare register high byte 

;output compare register low byte 

;input capture register high byte 

;input capture register low byte 

jport 3 control and status register 

;rate and Mode control register 
jtransfiit/receive control and status register 
^receive data register 
^transmit data register 

;RAM control register 



ALLOW 3 BYTE TIMES 



o 



© 

© 
© 

o 



c 

© 

© 
© 
© 



o 
© 

G 
O 
© 
© 



FILE i MPR„TR_J"C 

LOCATION OBJECT 

0004 
0004 09 
05 2713 

0007 D6H 

0009 C420 
OB 27 f 7 

000D D612 

OOOF 
00OF 09 

0010 2708 

0012 D611 
0014 2AF9 

0016 D612 

0018 38 

0019 39 
001A 

001A 8D02 
001C 38 
001D 39 



001E 

001E D611 
0020 D612 

0022 C61B 
024 D711 



. 0026 C600 
028 1)70 

002A 39 

Errors- 



ipADAMP HEWLETT-PACKARD: MPRJVRJICU < c ) Coleco 1983 Confidential 
CODE LINE SOURCE LINE 



Hon , 



Nov 1983, 16:01 



PACE 



91 


REPEAT i 






92 




DEX 




93 




BEQ 


TDRE_ERR 


94 








95 




LDAB 


SCI TR CS,D 


96 




AND© 


♦TORE MASK 


97 




BEQ 


REPEAT 


98 








99 




LDAB 


SCl^RX.D 


100 








101 


REPEAT1 i 






102 




DEX 




103 




BEQ 


TDRE„ERR 


104 








105 




LDAB 


SCI TR CS,D 


106 




BPL 


REPEAT! 


107 








108 




LDAB 


SCI„RX,D 


109 








110 




PULX 




111 








112 




RTS 




113 








114 


TDRE_ERRi 


' 




115 


l 


CLEAN 


UP UART PORTS 


116 




B8R 


CLEAN„UART„HW 


117 








118 


f 


PULX 




119 








120 




RTS 




121 








122 




GLB 


CLEAN.UARTJHW 


123 








124 


CLEAN JJART_HW* 






125 




LDAB 


011H,D 


126 




LDAB 


012H,D 


127 








128 




LDAB 


♦00O11011B 


129 




STAB 


O11H,0 


130 








131 




EXT 


CURRENT J3T ATE 


132 








133 




LDAB 


#0 


134 




STAB 


CURRENT ..STATE 


135 








136 




RTS 





jreset RDRF froM 2nd to last byte 

;1 WAIT FOR RECEIVE DATA REGISTER PULL 

)1 EMPTY RECEIVED DATA REGISTER AND CLEAR RDRF bit 

preset RDRF fro* last byte 



O 



FILE! HPR_TR_TCipADAMP CROSS REFERENCE TAfcLE PAGE 



e 



ME* 


SYMBOL 




TYPE 


REFERENCES 


124 


CLEAN UART 


HW 


P 


116,122 


131 


CURRENT„STATE 


E 


134 


86 


hPR TR *ICU 




P 


85 


yi 


REPEAT 




P 


97 


101 


REPEAT1 




P 


106 




SCI RX 




A 


99,108 




SCIJTR CS 




A 


95,10b 


114 


TDRE ERR 




P 


93,103 



82 TDRE MASK A 96 



o 



:°^ 



T> 



FILE! DJfPRipADAMP HEWLETT-PACKARD; D^MAC <c) Coleco 1VQ3 Confidential 

LOCATION OBJECT CODE LINE SOURCE LINE 

1 A 68Q1 A 

3 NAME A Rev 00 - DLS A 

4 

5 DeJD HAC MACRO ^Header Rev, 4 

6 .GOTO Ede,J)J1AC 
7 

8 Project ; NET , 83-101 
9 

■mmmmmmmmmmmmmmmmm: 

X> I... 3 

■mmmmmmmmmmmmmmmmm: 



Hon, 7 Nov 1983, IS :5V PACE 1 



to 


g$&g$& mmmmmm 


tt 


m 


12 


m x> m a o 


13 


& 


14 


$8§&3&$£&3&3&8&^ 


15 




16 


Rev History 


17 


Rev, Date 


18 


13jul 


1? 





Nawe 



Change 
Initial Pseudo code 



"* 



20 Ede D HAC MEND 



J 
$ 

o 



OS* 



CD 



<i> 



^ 

O* 



FILE: D_MPR:pADAMP HEWLETT -PACKARD ; D_MAC (c) Coleco 1983 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 

2 2 x * * * X- X X X X- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



Hon, 7 Nov 1983, Xh\b9 PAGE 2 



MODULE NAME 

D.MAC 
FUNCTION(S) 
1 



TO DECLARE THE DATA AREA -"N1M BLOCK." 
TO DECLARE THE Dl^MODEJdORD , 



23 x 

24 * 

25 * 

26 * 

27 * 

28 « 

29 x 

30 * 

31 * 

32 x 

33 * 

34 x 

35 * 1. NIM BLOCK IB USED AS THE INTERFACE BETWEEN THE 

36 * MEDIUM ACCESS CONTROLLER AND THE RESIDENT APPLICATION 

37 * PROGRAM, 

38 * 

39 x 2, THE INSTALLER IS RESPONSIBLE FOR LOCATING THIS DATA 

40 x MODULE SO THAT THE LAST BYTE ENDS AT LOCATION 127 <DEC) 

41 * 

42 axxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



NOTES: 



:^ 



O 



u 



G 
O 



FILE; DJ1PR:pADAMP HEWLETT-PACKARD; 1>„MAC <c:> Coleco 1903 Confidential Hon, 7 Nov 1983, 15:59 PAGE 

3 LOCATION OBJECT CODE LINE SOURCE LINE 

D 



0000 



1\ 



0000 





44 




GLB 


P HAC 




4b 




GLB 


D\ MODE WORD 




46 




GLB 


Hltt BLOCK 




47 




GLB 


A LEN 




48 




GLB 


AJ)ATA 




49 




GLB 


a~sig 




SO 




GLB 


CNfG WORD 




51 




GLB 


M S1G 




52 




GLB 


H LEN 




53 




DATA 






54 


*>_ 


HAC i 






55 


* X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 




56 


X 




X 




5? 


X 


DATA WORD; 


X 




58 


X 




X 




59 


X 


Dt„.hODE„WORD 


X 




60 


X 




X 




61 


X 


FUNCTION; 


X 




62 


X 




X 




63 


X 


CONTAINS THE STATE OF SEQUENCER PROCESSING x 




64 


X 




X 




65 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


<0000> 


66 


Dl 


_HODE WORD EQU 


* 




67 




RMB 


1 



u 



<J 



o 



© 
© 
c 
e 
e 
© 

© 


© 

© 



FILE: D_HPR:pADAMP HEWLETT-PACKARD! D_HA(J <c) Coleco 1983 Confidential 
LOCATION OBJECT CODE LINE SUUKCE LINE 

69 INCLUDE I_NIH_PR 

+ -X- -X X X X X X X X X X X X X X X X X X X X X * X X- X X X X X X X X X X X X X X X X » X * -X X X X X X X X X X X X X X X X X X X X X 



Hon, 7 Nov 1983, 15:5)9 PACE 4 



4- * 


















X 


+ X 










HIERARCHY 


CHAR r 




X 


4- X 












01- 






X 


+ X 








HL-DIUH 


ACCESS 


CONTROLLER 




X 


■f x 












(MAC) 






X 


4- X 


















X 


+ X 












<MAC> 






X 


•f X 












) 






X 


•** X 

+ x 

4- X 












1 






X 
X 
X 




<TR> 








<N1H> 




<ACH> 


•f X 




1 








I 




1 


X 


+ x 


+<" 


— + 


-*f — 





„* 


i 




•f 


X 


4- X 


< TRANS) <REC> 


< TCU> 


\ 




<SEQ> 


X 


+ X 












1 






X 
X 

X 


+ X 
+ X 








1 




„„„^™__— 


*"• "~ ~"*" *■** "•* *f* 
1 




+ X 






<WRIT£> 






<READ> 




X 


•f X 


















X 


•f X 
•f X 
•f X 
















«.™, m . .|. »»-*„»—. » 


X 
_ _ ™ ™ ™ -J- .)(. 














i 




1 x 


•f X 














(EVENTJ'ROO 




<RESP>x 


4- X 


















X 



+ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



© 

© 
© 
© 

G 

o 



© 



FILE: DJIPRjpADAMP HEWLETT-PACKARD? DJ1 AC < c ) Coleco 1VU3 Confidential Hon, 7 Nov 1.9B'3> 16:00 PAGE 

© LOCATION OBJECT CODE LINE SOURCE LINE 

t* X- X X- X x -x- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

<D + x INTERFACE MODULE DESCRIPTION * 

+ x x 

**' * * 

O + x NAHE: * 

4- X * 

+ * I_NIM * 

Clw + x x 

+ x FUNCTION: * 

*f x * 

© + x TO DEFINE THE INTERFACE BETWEEN THE MAC AND APPLICATION * 

+ x WITHIN A NODE. EACH AND EVERY NODE (WHERE A PRINTER * 

+ x OR KEYBOARD IB AN EXAMPLE OF A NODE) CONSISTS OF TWO * 

O + x PARTS} 1 >AN APPLICATION PART, l t £,> THE SOFTWARE THAT * 

+ x HANDLES THE NODE'S REASON FOR EXISTENCE, AND Z) A MAC * 

+ x PART, l.E t> THE SOFTWARE THAT INTERFACES TO THE NETWORK, x 

Q + x » 

-f x DESCRIPTION! * 

•f X " x 

+ x A BLOCK OF MEMORY WILL BE SHARED BY THE MAC AND APP, * 

•f x WHEREIN DATA AND CONTROL SIGNALS WILL BE PASSED BACK x 

' + ,x AND FORTH BETWEEN THE TWO, A DIAGRAM OF THIS BLOCK X 

3 + x (REFERRED TO AS NIM BLOCK) FOLLOWS! * 

+ * * 

-f X + * * 

® + x 1 M_SIG 1 . * 

4. # + * x 

+ x 1 M_DATA (HI) I * 

{j + # + + x 

+ * 1 M DATA (LO) i * 

+ .) + + x 

+ x 1 M_LEN I * 

•f X + 4- X 

+ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

G 

G 
Q 

o 



"B 



P 



3 



■*> 



J 
i 

o 



FILE; 9„MPR:pADAMP HEWLETT-PACKARD: DJiAC (c) Coleco 1983 Confidential Hon, 7 Nov 1983, 16:00 F'AGt 

LOCATION OBJECT CODE LINE SOURCE LINE 



+ X- -X- -x- -X- -X X X X X X X X X X X X X X X X XX X X X X X X -X X X X X X* X X X X X X X X X- X X X X X X X X- X X X X X X- X X X X X X X X 

+ X- X 

+ x DATA ELEMENT DEFINITIONS: * 

+ x- x 

•f x- x 

+ x M.SIGj . * 

+ X . X 

3 -»■ x- U- APR READY FOR MORE DATA. (APP WRITES) * 

+ * t™ APP IB NOT READY FOR MORE DATA. (MAC WRITES) * 

+ x x 

3 + x M.DATA * 

+ X X 

+- X X 

3 " + * 2 BYTE POINTER TO DATA. * 

•f x x 

+ x M„LEN: * * 

3 + * * 

+ X x 

+ * COONT OF BYTES IN MAC BUFFER. * 

3 + * ■ * 

■f x NOTES j * 

" + * x 

5 .+ x ' NONE, * 

+ x x 

+ xxxxxxx*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



© 
© 

G 



e 






^ 



© 



FILE i D_HPR:pADAMP HEWLETT-PACKARD: D_MAC <c> Coleco 1VB3 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 

+ X- X- * X -X * X- * X X X X X X X* X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 





0001 




0001 




0001 




0001 




0001 




0001 




oooe 


E 


rrors- 



+ X 

+ X 

•f X 

4* X 

+ X 

+ X 

+ X 

-f X 

-*- X 

+ X 

+ X 

+ X 

+ X 



NOTES TO INSTALLER OF THIS HAC/APP ; 

1, THE APP IS RESPONSIBLE FOR INITIALIZING ALL OF RAH. 

3, THE APP MUST INITIALIZE THE CONTROL AND STATUS REC AT 
LOCATION 0011 . 

3. THE Dl„MODE„WORD HOST BE SET TO ZERO AT PWR UP BY THE 
APP . 

4, THE NIM BLOCK WILL END AT ADDR 235 (deciMal), 



x 

x 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



70 NIH_BLOCK: 

71 A SIG 

72 A DATA 

73 A_LEN 

74 CNFG WORD 

75 M SIG RHB t 

76 M LEN RMB Z 



Hon, 7 Nov 19SJS> 16: 



PACE 



o 
o 

Q 



o 



© 
© 

© 
o 
o 
o 
© 
o 
.© 

G 
O 
© 
© 
© 
O 
© 
O 
G 
G 
G 



FILE; D_MPR:pADAHP 
LINE* SYMBOL 



CROSS REFERENCE TABLE 
TYPE REFERENCES 



PAGE 



72 


AJDATA 


D 


48 


73 


A LEN 


X) 


47 


7\ 


A SIG 


I) 


4? 


74 


CNFGJdORD 


D 


50 


66 


Dl^MODEJrfORD 


I> 


45 


54 


D HAG 


D 


44 


76 


M LEN 





52 


75 


M„SIG 


X> 


51 


70 


NIMJBLQCK 


I) 


46 



G 



HP 64000 Linker 



Hon, 7 Nov 1983, 16i07 



Page 1 



j 



FILE/PROG NAME 
DAISY4:pADAMP 



PR_MAC;pADAMP 
next address 

MPR TR TRipADAMP 

mpr"tr"tcipadamp 

next address 

DJIPRipADAMP 

next address 



PROGRAM 


DATA 


COMMON 


ABSOLUTS 


F80 


080 




FFF0-FFF1 
FFF4-FFF5 
FFFE-FFFF 


FJ)i)8 


00E6 






FF2t 


00PC 






FF31 








FF39 








FF64 


OOFC 
0100 







DATE TIME COMMENTS 

Mon, 7 Nom 1983, 15:47 Rev 16 GRW 

Mon, 7 Nov 1983, 16; 03 



Mon, 7 Nov 1983, 16:02 Rev 03 - RPD 
Mon, 7 Nov 1983, 16; 00 Rev 01 - RPD 



Hon, 7 Nov 1983, 15;59 Rev 00 - DLS 



XFER address^ 0000 Defined by DEFAULT 
absolute & link M co« file narie^PRA ; pADAMP 
Total* of bytes loaded^ 07EA 



HP 64000 Linker 



Hon, 7 Nov 1983, 16:07 



P a g e 



SYMBOL 


R 


VALUE 


DEF BY 


AJDATA 





OOFi) 


D_MPR;pADAMP 


a~len 


D 


00FO 


D MPR j p AD AMP 


A JBIG 


D 


00F1) 


D_MPR:pADAMP 


BREAKER FE 


P 


FDEF 


PRJIACspADAMP 


CLEAN UART HW 


P 


FFS7 


MPR TR TCipADAMP 


cnfgJJord 


ID 


O0FD 


D„MPR;pADAMP 




l> 






Dl MODE WORD 


D 


00PC 


D MPRipADAMP 


D„MAC 


D 


OOFC 


DJIPRipADAMP 


MPR TR TCU 


P 


FF3V 


MPR TR TCipADAMP 


MPR VR TRANS 


P 


FF21 


MPR TR TRjpADAMP 


M^LEN 


D 


OOFE 


D MPRipADAMP 


MJ3IG 


D 


OOFI) 


DJIPRspADAMP 


NET IN BUFF 


D 


OOEC 


PR MACipADAMP 


NIM BLOCK 


D 


OOFD 


D MPRipADAMP 


PR MAC 


P 


FDD8 


PR MACipADAMP 



REFERENCES 



D 



MPR„TR„rR;pADAMP 
MPR„TR„TCipADAMP 



PR MACipADAMP 
PR MACipADAMP 
PR~MACipADAMP 
PR„MACspADAMP 
DAISY4ipADAMP 

DAISY4:pADAMP 



DAXSY4:pADAMP 
DAISY4ipADAMP 



3 



j 



J 
j 
i 

J 



